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EL REGALO DE ESTAS FIESTAS QUE VALE POR TODOS 

SPECTRUM PLUS Y 128 
¡ALLELUIA, ALLELUIA! 


Le presentamos el regalo de estas Navidades que 
vale por todos. 

Si está pensando en regalar juegos, futuro, aprobado 
en Matemáticas... regale Spectrum. 

La familia de ordenadores familiares más vendida del 
mundo. 

Y la gran novedad del mercado: Spectrum 128 K. Una 
exclusiva mundial con teclado en español, y teclado 
adicional para editar programas, textos, controlar 
juegos o como calculadora. 

Con un simple comando puede convertirse en 
Spectrum Plus, Dos ordenadores en uno solo. 


Y una potente memoria RAM de 128 K que le permite 
ejecutar los programas más complicados, almacenar 
más información.,, 

SPECTRUM PLUS Y 128 
ORDENADORES CON BUENA ESTRELLA 
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ANO II 


ACTUALIDAD. Investrúnica traed Atari 520, 
Rumores de un nuevo QL. El coche fantástico en 
Spectruni. 


CINCO HORAS CON SCREENS. C on este articulo 
presenta utos diversos modos de manejar la pantalla en 
modo gráfico buscando obtener más calidad en 
nuestros programas. 
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HARDW ARE PRACTICO. Explicamos los 
conocí mienots básicos necesarios para poder hacer 
cualquier montaje con garantías de funcionamiento. 
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INFINITA PRECISION CON EL SPECTRl VL 


J L ECOS. Prueba fus capacidades deductivas con 
SHERLOCK x conviértete en uíl aguerrido kurateka 
con d EXPLODIMÍ LIST, 


45 


I \ NIEVO OPER ATI V O PARTE 4, Seguimos 
explicando el desensamblado de las diversas rutinas 


Gl SAN EX, 


QE M AGAZINE. Manejos gráficos desde el 
participaciones de lotería. 


LA L LTLMA BATALLA. L n super juego estratégico 
que liará las delicias de todos aquellos amantes de los 
mirgames\ o juegos de simulación de guerras. 


CONCURSO MATEMATICO. Si te gusta 
programar y sabes algo de matemáticas, no dejes de 
participar en nuestro concurso para mentes geniales. 


38 




CORCHO 




i 


Carnes dé diciembre W«« ^Zfd^T^s 
alie indo el mundo aproveche. ip e¡ de nues tra revista ofie- 

distracciones .favoritas. Para h va que incluimos en este nu- 

cemos una opción muy profesional Debido 

mero un juego de ohemo s tenido que suprimir la sene 

a la extensión de isit jueg número de enero, 

de código máquina que a poder teclear otro progta - 

Los usuarios de Ql- tam . enviado por un lector, aunque 

ma va que incluimos el pi une próximamente. Mu- 

Esperamos que nos ^¡^nuosJros y esperamos que 

«etaC» f» -- 

















































I 


ACTUALIDAD 
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Cuando se compra un ordenador como el Spectrum , uno 
siempre piensa que va a escribir sus propios programas de 
juegos. Pero en seguida cae en la cuenta de que la decisión 
necesariamente implica pasar por comprender el 
funcionamiento de la zona de pantalla. Y no es este un 
asunto trivial. Parece mentira que una zona tan 
iluminada, resulte a la vez tan oscura. 


E l Spectrum dispone de una 
pantalla de alta resolución 
de formato único, que fun¬ 
ciona según el método lla¬ 
mado «mapeado en bits» 
(bit-mapped). Decimos «de forma¬ 
to único» porque es muy común 
en otros ordenadores el disponer 
de dos o más posibles organizacio¬ 
nes —que se caracterizan por dar 
más colores cuanta menor sea la 
resolución. 

La complejidad de la distribu¬ 
ción de la pantalla aumenta enor¬ 
memente en cuanto nos salimos 
del BASIC. Para proceder por or¬ 
den, empezaremos a este nivel. 

Es posible referirnos a la panta¬ 
lla de dos modos, aunque más tar¬ 
de veremos que es uno solo. Pode¬ 
mos hablar de casillas y de «pi¬ 
séis». 

Convendremos en llamar casi¬ 
llas de caracteres a los espacios de¬ 
dicados a caracteres. Si escribe: 

PRINT AT 12,16;INVERSE 

1 , » 

1 i 


se dibujará en mitad de su pantalla 
un cuadro de color. Esta superficie 
es la que llamamos casilla. La reso¬ 
lución —el número de casillas del 
que se dispone— es de 32 colum¬ 
nas por 24 líneas, siendo las dos úl¬ 
timas no accesibles directamente. 

Cada casilla tiene asociado un 
byte en la llamada área de atribu¬ 
tos. Este byie guarda información 
sobre el color de la «tinta», el «pa¬ 
pel» y la condición de parpadeo o 
brillo. Más adelante veremos más 
sobre ello. 

El término pixel (picture ele- 
ment, elemento de imagen) hace 
referencia al punto más pequeño 
que puede usarse en la pantalla del 
Spectrum. Haciendo 

PLOT 128,88 

dibujaremos un pixel en mitad de 
la pantalla. Es posible dibujar 256 
pixels en horizontal y 176 en verti¬ 
cal 

Como se indica de manera im¬ 
plícita en los ejemplos anteriores. 


nosotros accedemos a un punto a 
través de sus coordenadas. En el 
caso de las casillas, en primer lugar 
se indicará la coordenada vertical 
y, seguida de una coma, la coorde¬ 
nada horizontal. El origen de coor¬ 
denadas —el punto 0,0— es la es¬ 
quina superior izquierda. En lo 
que a pixels se refiere, la primera 
coordenada es la horizontal, y la 
segunda la vertical. El origen está 
en ¡a esquina inferior izquierda. 
Como vemos, en este último caso, 
la semejanza es total con las coor¬ 
denadas cartesianas. 

Muchas veces es necesario cam¬ 
biar la posición del origen y/o am¬ 
pliar o reducir los dibujos. Las 
transformaciones a realizar son 
sencillísimas. Veamos el programa 
1 (fig. 1), que incluye todas las 
transformaciones a realizar para el 
dibujo de cualquier función, que se 
indicará en la línea 160. 

Debemos tener en cuenta que 
ios pixels y las casillas no son sino 
diferentes maneras de ver una mis- 







ma cosa. Un carácter cualesquiera 
está formado a base de puntitos os¬ 
curos o iluminados. Estos puntitos 
no son otra cosa que pixels. Así, 
una casilla es una matriz 8x8 
puntos. 


Atributos 

Consideremos ahora el abando¬ 
nado tema de tos atributos. Como 
mencionábamos, para cada casilla, 
existe un byte de atributos. El va¬ 
lor de este octeto puede expresarse 
como 

l)+8*Códi- 
go papel+Código tinta 

Este valor puede obtenerse me¬ 
diante el comando ATTR (x,y). 

Dejemos de lado el parpadeo o 
el brillo, mantengamos únicamen¬ 
te la información de los colores. 

Cuando ponemos cualquiera de 
los bits del mapa que forma la pan¬ 
talla, a uno, inmediatamente dicho 
punto tomará el color de la tinta 
que hallamos asignado. Los bits 
que estén a cero, adoptarán el co¬ 
lor del papel. Veamos un ejemplo 
en el que se escribe A’s en toda la 
pantalla (programa 2). La línea 30 
tiene por misión el poner todos los 
atributos de la pantalla a un valor 
determinado. 


¿Cómo es posible? 

Hemos visto, aunque de manera 
indirecta, que los datos introduci¬ 
dos en ciertos lugares de la memo¬ 
ria RAM se reflejan en la pantalla 
de alguna extraña manera. En 
efecto, entre las direcciones 16384 
(4000H) y 22527 (57FFH) está al¬ 
macenada la información sobre pi¬ 
xels. Todo punto —caracterizado 
por sus coordenadas— tiene aso¬ 
ciado un bit que, como siempre. 


podrá estar a cero o a uno (dando, 
por tanto, el color del papel o de la 
tinta). Existe otra segunda área, la 
ya comentada de atributos, que 
asocia un byte a cada casilla, La or¬ 
denación es muy simple. La pri¬ 


mera posición (22528, 5800H) co¬ 
rresponde a la esquina superior iz¬ 
quierda. El siguiente dato será el 
correspondiente a la casilla situada 
a la derecha de la anterior. Y se¬ 
guimos en la misma línea hasta la 
posición 32. La siguiente ya co¬ 
rresponde al segundo renglón. Así, 
hasta completar 32*24 - 768 by- 
tes (300H). 

Otro punto de interés es la ma¬ 
nera en la que los datos almacena¬ 
dos en memoria pueden salir a la 
pantalla. En detalle el procedi¬ 
miento es complejo, pero podría 
resumirse diciendo que en la ULA 


—circuito integrado especialmente 
diseñado para el Spectrum— exis¬ 
ten una serie de circuitos que con¬ 
tinuamente interrumpen el acceso 
a memoria del microprocesador, y 
obtienen del área de pantalla la in¬ 
formación adecuada. Estos datos 
debidamente procesados se man¬ 
dan al circuito modulador, que los 
envía a la toma de antena en una 
portadora de alta frecuencia. 


La distribución del área 
de pantalla 

Volvemos a los pixels. Los pun¬ 
tos correspondientes a una misma 
«rebanada» horizontal de una mis¬ 
ma casilla están almacenados en 
un byte. Esto supone grandes ven¬ 
tajas de orden práctico, ya que nos 
permite simplificar enormemente 
la tarea de escritura de caracteres 
en pantalla. 

Los aficionados a los juegos se 
habrán preguntado muchas veces 
por qué al cargar un dibujo de pre¬ 
sentación, las lineas van apare¬ 
ciendo en tan extraño orden. Un 
efecto semejante es el que muestra 
el programa 3. Al igual que en el 
caso anterior, mientras que la me- 
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CODIGOS 

DE 

COLOR 


0- negro 

1 a azul marino 

2 = rojo 

3 = morado (magenta) 

4 = verde 

5 = azul claro (dan) 

6 = amarillo 

7 = blanco 


Figura 1. 
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10 REM Programa 1 

20 REM 

30 LET X0»256/2; LET Y0=176/2 
! REM PosiCtOn del crigerv d 
e coordenadas 

40 LET KF»2ü: LET YF=20t REM 
Factores de estala. Mayor q 
ue ufto, agrandan, menos, di 
sminuyen* 

SO PLOT 10,V0; DRAW 236,0: PL 
OT JÍO.IO: DRAW 0,136: REH D 
ibujo de los #jes. 

55 REM Dibujo de escalas 

6C LET UX=XFí LET UY=Yf 

70 JF UX>100 THEN LET UX-UX/ 
10; GO TO 70 

SO IF UY>S0 THEN LET ÜY=UY/i 
0: GO TO 30 

90 IF UX<5 THEN LET UX=lO*UX 
: GO TO 90 

100 TF UY< 3 THEN LET UY=IO*UY 
: GO TO I00 

110 LET DX-X0-LTX*1MT (XÜ/UX) 5 
LET EX;=DX-UX* EDXMJX/2Í i FGR 
1=1 TO 236/UXí PLOT UX*1+D 
X,Y0-2; DRAW 0,3; NEXt J 
120 LET DY»YO-UY+rMT CYO/UYÍí 
LET DY«DY-UY*tDY>UY/2>; FOR 
1 = 1 TO! 156/ur: PLOT XO-2 t U 
Y+I*DY: DRAW 3*o: NEXT 1 
130 PR1WT AT O, Q¡ M Intervalos X 
XF/UX,-Y="íYF/ÜY 
140 PFH Ejemplo 
130 FOR T=? TO 230! LET X=U-X 
0 1 / KF 

160 LET Y-TAN X 
170 LET YC«YF#Y+Y0: IF YOO AM 
D YC<176 THEN PLOT I,YP*Y 
+ Y0 

130 NEXT r 


10 REM Programa 2 
20 REM 

30 INK 71 PAPER 05 BORDER 05 
CLS 

40 FOR 1=0 TO 7 
50 REAS A 

60 POKE 256*1+16304,A 
70 NEXT I 

100 data bín oooooooo 

110 DATA BIN 00II1100 
120 DATA BIN OlOQQGíO 
130 DATA BIN 01000010 
140 DATA BIN 01111110 
ISO DATA BIN 01000010 
i60 DATA BIN 01000010 
170 DATA BIN OOOOOOOO 
ISO 
190 

200 REM Pragrama 3 
210 REM 
220 CLS 

230 FOR I=16394 TO 22327 
240 POKE 1* 233 
250 NÉXT I 
260 PAUSE O 


0010 

! 

PROGRAMA 4 


0020 





0030 

t PRIMT AT 

10.IZi"*"STAF 

91 

0040 









0050 





0060 

íAbrifiios el 

can#! 2, Sa 

pastal l e 

1 0070 





0090 


LD 

A,2 


0090 


CALL 

í 601K 


0100 





ONO 


LD 

DE*TEXTO 


0120 

BUCLE 

LD 

A, I DE 1 


0130 


BIT 

7*A; Fin de 

tes t o 

0140 


REY 

NZ 


0150 


RST 

I Oh 


0160 


INC 

DE 


0170 


JR 

BUCLE 


OIGO 





0190 

TEXTO 

DEFfc 

AT , 10 p 12, 1 + 1 


0200 


defb 

TAE.4,0, h -* 


0210 


OEFB 

ENTER 


0220 


DEFB 

9QH 


0230 





0240 

ENTER 

EGU 

13 


0250 

AT 

E3U 

22 


0260 

TAS 

EGU 

23 



moría se altera de forma consecuti¬ 
va, el efecto se muestra de manera 
alterna. 

A primera vista podemos distin¬ 
guir tres bloque? idénticos. Los tres 
tienen una ordenación igual, por 
lo que estudiaremos únicamente el 
primero, que va de la dirección 
4Q00H a la 47FFH. Un análisis 
más detallado nos lleva a descubrir 
que en cada bloque hay 8 bandas. 
Tres bloques multiplicado por 8 
bandas por bloque, nos dan un to¬ 
tal de 24 bandas... ¡Estas bandas 
son las líneas de texto! En efecto, 
estas líneas tienen una altura de «8 
pisos». A lo ancho, cada una ocu¬ 
pa 256/8 = 32 bytes. 32 bytes/hnsa 
x 8 líneas por banda x 8 bandas = 
2048, los 2 K que se obtienen res¬ 
tando direcciones de principio y fi¬ 
nal. 

Generalmente, nuestro mayor 
interés reside en escribir por li¬ 
neas. Esto es sencillo, pues par¬ 
tiendo de la dirección del primer 
ladrillo de la casilla, las siguientes 
se obtienen sumando 256 a las an¬ 
teriores, hasta conseguir los ocho 
pisos. Las primeras filas de casilla 
se caracterizan porque tienen los 3 
bits menos significativos del byte 
alto a cero. 

El cambio de bloque supone 
nuevas complicaciones, que se re¬ 
solverán en cada caso de forma di¬ 
ferente. (Obsérvese, por ejemplo, 
las soluciones adoptadas en los 
programas de scroll). 


La figura 2 muestra para cada 
las direcciones asociadas a cada re¬ 
banada. 

PLOT a velocidad de luz 

Trabajando en lenguaje ensam¬ 
blador —lo que se conoce inco¬ 
rrectamente como código máqui¬ 
na— muchas veces deseamos co¬ 
nocer a partir de las coordenadas 
de un punto la dirección en la que 

— 

0001 

ooo2 ; +************-*********+** 

0003 í *** SCROLL VERTICAL #** 

0004 1 ************************* 

0005 

0006 TCCJ LUIS Miguel BRUGAROLAS 1935 

0007 

0003 


0009 


EXX 


OCHO 


LD 

BC.0703M 

0011 

0012 

CONT 

EXX 


0013 


LD 

BiÜO 

0014 

0015 


LD 

HL,41OOH 

0016 

BLOCK 

LD 

e t l 

0017 


LD 

D.H 

0019 


DEC 

D 

0019 

0020 


JR 

TRANSF 

0021 

LIME 

Exx 


0022 


LD 

L t A 

0023 


JR 

NC.TPANSF 

0024 


INC 

H 

0025 

0026 

TRANFF 

LD 

LDIR 

C , 32 

0027 


LD 

A, -32 

0029 


ADD 

A*E 

002* 


LD 

E , A 

0030 


JP 

NC,JMF 

0031 


INC 

D 

0032 


EXX 


0033 


DJNZ 

LINE 

0034 

0033 


LD 

EXX 

B. 07 


0036 

0037 

0030 

0039 

0040 NÓJFIN 

0041 

0042 

0043 NXTBLK 

0044 

0045 

0046 

0047 

0040 

Q049 

0050 


0051 

0052 

NW_BLK LD 

A, H 

0033 

CP 

58M 

0054 

JR 

NZpNXTBLK 

0055 

0056 

XQR 

A 

0057 

LD 

HL»37E0H 

0050 

LD 

1HLI * A 

0059 

LD 


0060 

LD 

C , 31 

0061 

LDIR 


0062 

0063 

EXX 


0064 

DEC 

C 

0065 

JR 

NZ,C0NT 

0066 

E XX 


0067 

006S 

LD 

BE,58OOH 

0069 

LD 

HL, 5*2OH 

0070 

LD 

BC.02E3H 

0071 

LDIR 


0072 

PEI 



LD 

A,L 

DP 

A 

JR 

2,m BLK 

LD 

A f -7 

ADD 

A, H 

LD 

H,A 

LD 

LDIR 

C, 32 

LD 

A, -32 

ADD 

A „ L 

LD 

L,A 

JR 

NC,BLOCK 

INC 

H 

JR 

BLOCK 

















se encuentra el punto a dibujar, y 
cuál de los bits es. Aunque parezca 
mucho pedir, existe en ROM una 
subrutina que nos viene al dedillo. 
Si cargamos en B la coordenada 


ra desde programas en código má¬ 
quina (ahora sí). 

Las manipulaciones que requie¬ 
re la operación son muy sencillas. 
Cuando vayamos a escribir algo 


01C864 

01 

LD 

BC, 256M00+200; XÍCM200, YfB)=1G0 

CDAA22 

02 

CALL 

22AAH 

47 

03 

ID 

B, A 

04 

04 

INC 

8 

3E01 

05 

LD 

A, 01 

OF 

06 

rot rrca 

ROT 

1 OFD 

07 

DJNZ 

B6 

08 

Oñ 

ÍHL) 

77 

09 

LO 

(HÜ, A 

C9 

10 

REI 

Figura 3 . 



subrutina de la dirección 22AAH, 
volveremos guardando en HL la 
dirección del byte a alterar. En el 
registro A tendremos el orden de 
nuestro bit. Pongamos el ejemplo 
concreto de hacer un PLOT en el 
punto 200,100. Escribiremos el 
programa de la figura 3. 

La simulación de un OVER 1 se 
llevará a cabo mediante la función 
XOR. Cambiaremos la línea 3 por 
un LD A.OFEH, y la 6 por el con¬ 
sabido XOR (HL). 


Escritura de textos 
en programa ensamblador 

Vamos a pasar a otro asunto más 
interesante si cabe. Se trata de es¬ 
cribir textos en pantalla o impreso- 


io 

REM Programa 8 

20 

REH 

30 

DATA 93tO|7?,l?iO'll£'l,'O f 

9,237, 176,201 

*0 

CLEAR 30000 


LET AODF-2329* 

60 

FOF 1=0 TO ll: RÉAD A! PÜK 
e i*addr,a: mv.'r r 

70 

PEM Almacenarnos en Mejoría 

90 

FOF 1=0 TO 14: CLS 

90 

PLOT 20,S0í DRAU 200*0+ C- 
7) 

100 

POKE ADDR+5,256- I S*1 - 

110 

RANDOMIZE USR ADDR 

Í20 

NEXT 1 

130 

FEM UisufllíSao lar 

140 

POKE ADOR+5+72 

ISO 

FOR 1=0 TO 14: PAUSE 2; PC 

KE ADOR+2,256- RAN2 

OMl+E USR AOORt next i 

160 

FOR 1=14 TO 0 STEP -J; PAU 

SE 21 POKE ADDR+2,236-U + n 

*s: ramocmize USF ador: hex 

T I 

170 

GO TO 15C 


0001 



0002 

i ‘rTTÍ 1 ttttttttt « tiP 

0003 

í** PROGRAMAS de scrgll ** 

0004 

¡** EN HORIZONTAL ** 

0003 

1 MHHHH**4**#****4*****^*# 

0006 



0007 

tic) Luí» Miguel ERIJO AROLAS 19&5 

0003 



0009 

A Í! 

t SCRDLL A 

LA DERECHA 

uu 1 1? 



oon 



OOí 2 

LD 

HL,400QH 

0013 

LD 

C, 24*S 

0014 

LTNEF LD 

B,32 

0015 

XOR 

A 

0016 

RDTR RR 

(HL) 

0017 

INC 

HL 

001S 

ÜJN2 

ROTR 

0019 

DEC 

C 

0020 

JR 

NZ+LJWER 

0021 

RET 


0022 



0023 

ISCROLL UNA 

LINEA A LA DERECHA 

0024 

1 - -- 


0025 



0026 

LD 

HL+5000H 

0027 

LD 

C.03 

002® 

L1NE1R LD 

6,32 

0029 

XOR 

A 

0030 

ROTIP RR 

(HL) 

0031 

rwc 

L 

0032 

DJNZ 

ROT IR 

0033 

LD 

A,-92 

0034 

ADD 

A»L 

0035 

LD 

L, A 

0036 

INC 

H 

0037 

DEC 

C 

0038 

JR 

NZ*LINElR 

0039 

RET 


0040 



0041 

í SCROLL A 

LA IZQUIERDA 

0042 

1-- - 


0043 



0044 

LD 

HL p 57FFH 

0045 

LD 

0 , 24*9 

0046 

LIMBL LD 

D, 32 . 

0047 

XOR 

A 

0Ü4S 

ROTL RL 

(HL) 

0049 

DEC 

HL 

0050 

DJNZ 

rotl 

0051 

DEC 

C 

0052 

JR 

N2+LINEL 

0053 

RET 


0054 



0055 

SSCROUL DE 

UNA LINEA A LA IZO 

U UD O 

I 


0057 



005S 

LD 

HL i 501FH 

0059 

LD 

0,0® 

0060 

LINE1L LD 

e*3Z 

0061 

XOR 

A 

0062 

POTIL RL 

(HLÍ 

0063 

DEC 

L 

0064 

DJNZ 

ROTiL 

0065 

LD 

A f 32 

0066 

add 

A * L 

0067 

LD 

L. A 

0060 

ÍNC 

H 

0069 

DEC 

C 

0070 

JP 

NZjLÍNEIL 

0071 

RET 



por primera vez. debemos asegu¬ 
rarnos de que el canal de pantalla 
se encuentre abierto. Y la mejor 
forma de hacerlo, es forzando la si¬ 
tuación. Una vez realizado esto, 
simplemente cargamos en A el có¬ 
digo del carácter a imprimir, y ha¬ 
cemos un RST 10H, El carácter 
aparecerá en pantalla. Con objeto 
de controlar su posición, podemos 
emplear los códigos de control 
comprendidos entre 16 y 23. Así, 
si queremos hacer el equivalente 
de PR1NT AT 10,12;“*":TAB 
13;“-”, escribiremos un programa 
como el 4 (figura 5), Para el 
PRINT AT, mandamos el código 
AT, y a continuación las dos coor¬ 
denadas del lugar donde deseamos 
escribir y el carácter o caracteres a 
imprimir. El PRINT TAB guarda 
una ligera sorpresa, en el sentido 
que requiere 2 bytes, como siem¬ 
pre el primero es el menos signifi¬ 
cativo. Es curioso, pero el más sig¬ 
nificativo no lo es en absoluto, 
pues se ignora por completo. 

Esta no es la única manera de es¬ 
cribir texto en pantalla aunque sí 
la más útil. Indicaremos nada más 
que la mencionada subrutina no 
perturba el contenido de los regis¬ 
tros —sí del juego alterno o ima¬ 
gen—, por lo que puede usarse di¬ 
rectamente. 


Cambios de juego 
de caracteres 


La información sobre el «perfil» 
de los caracteres se halla almace¬ 
nada en ROM, entre las direccio¬ 
nes 3D00 y 3FFFH. La selección 
se realiza mediante direcciona- 
miento indirecto al contenido de 
¡cómo no!, una de las variables del 
sistema. En CHARS (23606 y 7) se 
almacena la dirección de comien¬ 
zo de la tabla menos 256. Esto es, 
el byte bajo queda inalterado, y el 
alto queda disminuido en una uni¬ 
dad. Si creamos otra, esta vez en 
RAM, y modificamos consecuen¬ 
temente este puntero, podemos 
disfrutar de caracteres a medida. 
Incluso podemos usarlo como me¬ 
dida de protección en nuestros 
programas. 
















Programas de Scroll 
suavecito 

Aunque el término «Scroll» nó 
es excesivamente español, se halla 
asumido perfectamente por los 
usuarios del Spectrum. Por si toda¬ 
vía hay algún despistadillo, dire¬ 
mos que se trata de un desplaza¬ 
miento de la imagen en pantalla. 
El Scroll que dispone el ordenador 
tiene la ventaja de ser muy rápido, 
pero es hacer un USR 3582). Cpn 
objeto de proporcionar al Spec¬ 
trum un aspecto más profesional, 
se ha escrito una rutina de scroll 
vertical muy suave. Merece la 
pena probarse. 


Igualmente, hemos escrito pro¬ 
gramas de Scroll en horizontal, 
tanto para la pantalla entera, como 
para una única línea. Este último 
puede resultar de gran interés para 
juegos del tipo de una autopista 
que se ve por encima. 


Cambio de pantallas 

En muchas ocasiones resulta 
muy interesante mover rápida¬ 
mente complicadas figuras. Como 
no es posible dibujarlas en tan 
poco tiempo, debemos buscar un 
método alternativo. Este método 


existe. Efectivamente, es posible 
transferir bloques enteros de pan¬ 
talla de un lugar a otro de la me¬ 
moria, dando ilusión de movi¬ 
miento. El programa 8 ilustra el 
efecto. Aquí no se ha realizado la 
transferencia de la pantalla entera, 
sino sólo del tercio central. De esta 
manera, tenemos la oportunidad 
de guardar más imágenes, y por 
tanto de conseguir un mayor rea¬ 
lismo. En cualquier caso, siempre 
podemos guardar la pantalla com¬ 
pleta, incluso con el área de atribu¬ 
tos. 

Luis M. Brugarolas 


100 DATA 217,1,3,7,217,6,0,33, 
0,65.93,34,21 ,£<1.5,217 

110 DATA 111,43,1,36,14,32,237 
,176,62.224,131,95,49, 1,20, 
217 

120 DATA 16,237,6,7,217,125,18 
3,40,17.62,249,132,103,14,3 
2,227 

130 DATA 176,62,224,133,111,48 
,211,36,24,208,124,254, GS, 3 
2,-238, 175 

140 DA T A 33,224,97,119,1^,225, 
S?,14,91.237,176,217,13,32, 
181,2!7 

150 DATA 17,0,89,33,32,88,1,22 
4.2,237.176,201,33,0,64,14 

160 DATA 192.6,32,175,203,20,3 
5. 16.251,13,32,245,201,33,0 
,80 

170 J1ATA 14,8,6,32,175,203,30, 
44,16,251,62,224,133,111,36 
,13 

ISO DATA 32.240,201,33,255,97, 
14,192,6,32,175,203,22,43,1 
6,251 

190 DATA 13,32,245,201,33,31,3 


0,14,9.6,32,175,203,22,45,1 
6 

200 DATA 251,62,32,133,111,36, 
13.32,240,201 

500 LET SUM=01 LET D!R=23296 

510 POR 1=0 TO 169 

520 READ A: PGKE DIR+I.Al LE T 
SU1=SUM+A 

530 NEXT I 

540 IF SUM<>16363 THEN BEEP . 
5,40: 9ri NT -ERROR EN EL DA 
TA"1 STOP 

600 REM 

610 REM DEMOSTRACION 

620 REM 

630 0.3 1 9 0 R ¿=i TO 32*211 PR 

INT CHR* (32+100*RMD í J: NE 
XT i 

640 REM Estes cutirás son reí 
a-cal i cables i pueden situar 
se en cualq«.t i er lugar de la 
memor i & . 

650 REM Scroll Vertical 

660 RAND 0 MI 2 E USR d ir: BEE= ,i 
,10: PAUSE 50 

670 REM Scroll a la derecha 


6S0 RANDOM12E USR ídír+92>: PE 
EP .1.30: PAUSE 50 
690 POP i=0 TO 7í RAND0MI7E US 
R id ir+921: NEXT í; BEEP ,\ 
.10: PAUSE 50 

700 RE M Scroll a la izquíerda 
710 RAND0M1ZE USR Ídir + ISIM P 
EE P ,1,2o 1 : PAUSE 50 
720 POR i-0 TO 7: PAMDOMITE US 
R (.dir+L31l: NEXT i: DEEP . 
l f 10: PAUSE 50 

730 INPÚT w Fi la (0-23):";R IF 
F< 0 OR F >23 THEN GO TO 73 

0 

740 LET H-3*INT ÍF/SÍ+64 
750 LET L=22*ÍF-S*IMT 
760 POKÉ dir+110 # 1í POKE d i - rl 
11. h: p OKE dír +149.1+31; ro 
^E riir + 150,*’ 

770 REM Ec-all de lineas 
& EM A la deseche 
RAHEOMIZE USR ídirM99!¡ F 
EEP .1,30: PAUSE 50 
ROO POR i=0 TO 7: RANDQNIZE US 
o ídír+1091! NEXT ií FFE P 
PAUSF 50 


GOSANEZ. por cl&M C. 'IomÁS 


























I mirar cualquier circuito 
electrónico entramos en un 
mundo misterioso habitado 
por los seres más extraños 
que pudiésemos imaginar. 
Allí conviven raras especies de 
ciempiés negros y planos, con 
multitud de patas brillantes, cono¬ 
cidos como «chips», transistores de 
varias especies, grandes y alarga¬ 
dos con placas metálicas, o como 
pequeñas cabezas, metálicas o 
plásticas, y dos o tres patas de 
alambre, resistencias como gusa¬ 
nos cilindricos con el cuerpo pin¬ 
tado con anillos de colores, con¬ 
densadores con forma de pequeños 
barriles metálicos, o pequeñas go¬ 
tas de plástico que se hubiesen so¬ 
lidificado repentinamente, o bien 
en forma de lenteja. Esta fauna 
exótica vive sobre un curioso terre¬ 
no, llamado «placa de circuito im¬ 
preso», o «placa» a secas, alimen¬ 
tándose de electricidad y realizan¬ 
do funciones más o menos desco¬ 
nocidas. A estos bichos y a sus cos¬ 
tumbres dedicaremos este artículo. 

El principio: voltios, 
amperios,,. 

Bueno, pues todos estos bichos, 
desde la más pequeña resistencia 
hasta un ordenador, dependen y 
viven de la electricidad, que es esa 
cosa que se esconde en los enchu¬ 
fes de las paredes y que suele dar 
calambres. Pero, ¿qué es la electri¬ 
cidad? Pueden decirse muchas co¬ 
sas sobre ella, pero iremos a lo 
práctico. En principio, es algo que 
tiene que ver con unas fuerzas que 
se producen entre partículas «car¬ 
gadas». y que nos interesa que se 
muevan (y eso es todo, porque no 
es cosa de dar un curso de Física). 

Podemos ver dos cosas intere¬ 
santes en la electricidad: una, la 
que hace que esas partículas carga¬ 
das se muevan (a las que, a partir 
de ahora, llamaremos electrones) y 
otra, que es el movimiento. Pense¬ 
mos en un ejemplo típico: una pe¬ 


queña cascada que cae sobre un 
molino de agua. La rueda se mue¬ 
ve al caer el agua en las paletas (fi¬ 
gura I). Y se mueve con más rapi¬ 
dez si la catarata es más alta, aun¬ 
que no caiga más agua, pero tam¬ 
bién con la misma altura y más 
agua giraría con mayor rapidez. Es 
decir, hay dos aspectos que nos in¬ 
teresan, ía altura y la cantidad de 
agua. Con la electricidad ocurre lo 
mismo, nos interesan la fuerza, lla¬ 
mada «tensión», que se mide en 
voltios (V), y la cantidad, llamada 


«corriente» y medida en amperios 
(A). 

De todas formas, hay que decir 
algo más. Ambas pueden tener un 
signo (+) o (-). Normalmente hay 
un punto en el circuito llamado 
«masa» o «tierra», que se represen¬ 
ta por con respecto a la 

cual se miden las tensiones. Si la 
tensión es mayor que la masa, es 
positiva, y si es menor, negativa. 
Es como la altura de las montañas, 
se toma toda con respecto al nivel 
del mar, y podemos comparar al¬ 
turas porque tenemos un punto 
«cero» con respecto al que pode¬ 
mos medir. El signo de la corriente 
se toma de otra forma. En general 
va siempre de las tensiones positi¬ 
vas mayores a las menores; es de¬ 


cir, siempre de positivas a negati¬ 
vas o de positivas a masa o de masa 
a negativas. Pensemos de nuevo en 
el agua. Si llueve en la cima de una 
montaña, o en donde sea, el agua 
va' siempre buscando los puntos 
más bajos, de menor altura. Así se 
comporta la corriente. 

Potencia 

¿Qué es mejor: 100 voltios y 1 
amperio o 1 voltio y 100 ampe¬ 


rios? La respuesta es que depende. 
Pero además podemos hacer com¬ 
paraciones gracias a la potencia, 
que es el producto de tensión por 
corriente y el resultado se mide en 
vatios (W). En el cuadro 1 apare¬ 
cen las fórmulas que les relacio¬ 
nan. Se ve que en el ejemplo la po¬ 
tencia es la misma en los dos casos. 
De todas formas, la potencia puede 
ser creada o consumida. Después 
volveremos sobre esto. 

Un último detalle sobre las uni¬ 
dades es que a veces son demasia¬ 
do grandes o demasiado pequeñas. 
Por eso se suelen emplear prefijos 
para simplificar la escritura. Por 
ejemplo, en lugar de decir «un mi¬ 
llón de vatios», decimos «un me¬ 
ga vatio» y escribimos 1 MW. Ade- 


Nuestra labor de 
montaje del 
circuito a punto de 
terminar. Todos 
los componentes e 
instrumental 
necesario se hallan 
distribuidos 
alrededor de la 
placa que soporta 
el circuito. 















i i / 

más, en electrónica, trabajaremos 
más bien con milésimas de ampe¬ 
rio y de vatio, que son los miliam- 
perios (se escribe «mA») y miliva- 
tios (mW), De todas formas, los 
prefijos más usados son los indica¬ 
dos en el cuadro 2. 

Es curioso que las abreviaturas 
de los grandes son letras mayúscu¬ 
las, mientras que las de los peque¬ 
ños son minúsculas, aunque no es 
una casualidad, sino para recor¬ 
darlos mejor. 


en general, los metales. La madera, 
el cristal o los plásticos son buenos 
aislantes. 

En cuanto a lo del grosor o de la 
longitud, pensemos en una co¬ 
rriente de agua. Cuanto más estre¬ 
cha sea la manguera, peor pasará 
el agua. Y, desde luego, si al agua 
le cuesta pasar, habrá que hacer 
tanto más fuerza cuanto más larga 
sea la manguera. 

A esto se le llama resistencia; y 
lo que indica es cómo le es de difT- 



La misma placa 
uniprint pero 
vista [Mirel lado 
de los 

componentes, 
donde se puede 
ver que las 
distintas pistas 
están unidas con 
cables para unir 
tos 

componentes. 


Resistencia 

Hemos dicho que la corriente 
eléctrica son partículas cargadas 
que se mueven. Pero no puede ir 
igual de cómoda por todos los te¬ 
rrenos. Los hay más y menos agra¬ 
dables. A los agradables, que son 
aquellos en los que, con una ten¬ 
sión pequeña conseguimos co¬ 
rrientes más bien grandes, se les 
llama «conductores». A los que, 
por mucha tensión que les apli¬ 
quemos no conseguiremos corrien¬ 
te, se les llama «aislantes». En que 
un material sea aislante o conduc¬ 
tor influyen cosas como lo largo 
que sea, la superficie o la naturale¬ 
za del materia!. Así, la plata o el 
cobre son buenos conductores y. 


cil a la electricidad atravesar un 
material, Para medir esa resisten¬ 
cia, podemos hacer un experimen¬ 
to. Cogemos una barra de hierro, le 
aplicamos una tensión de 3 voltios 
y medimos la corriente. Suponga¬ 
mos que sale 1 amperio. Si le apli¬ 
camos ahora 15 voltios, obtene¬ 
mos una corriente de 5 amperios. 
Si fuesen 300 voltios, saldrían 100 
amperios. Dividiendo la tensión 
por la corriente se obtiene siempre 
el mismo número, el 3, que es el 
valor de la resistencia. Eso, bien 
dicho, es la ley de Ohm. que dice 
que «la resistencia es igual a la ten¬ 
sión partida por la corriente» (en el 
cuadro 3a aparecen las relaciones), 
y la unidad de resistencia son los 
ohmios (se prepresentan por D). 


Resistencias «de verdad» 

¿Qué ocurre cuando necesita¬ 
mos resistencias? ¿Dónde y cómo 
se compran? ¿Son caras? Estas son 
algunas de las preguntas que apa¬ 
recen cuando hay que trabajar con 
resistencias y que contestaremos 
ahora. 

Lo primero que hemos de saber 
es que no se fabrican todas las re¬ 
sistencias posibles; seria carísimo 
de fabricar los 10.000.000 de resis¬ 
tencias que van desde las de 1 oh¬ 
mio hasta las de 10 Megaohmios 
(10 «Megas» para los amigos), y 
siempre habría alguien que necesi¬ 
tase una de 97.321,438 ohmios, 
que no estaría incluida en la lista, 
así que ésta no serviría para nada. 

Por otra parte, si queremos una 
resistencia de 1.500 ohmios pode¬ 
mos fabricarla para que salga exac¬ 
tamente de 1.500. pero es tremen¬ 
damente cara. Por el contrario, es 
muy barato fabricarlas de 1.500 
ohmios, más o menos. El «más o 
menos» quiere decir que puede va¬ 
riar un poco, por encima o por de¬ 
bajo, del valor que queramos, pero 
siempre sin pasar de determinados 
valores. Así. nos venden resisten¬ 
cias con «tolerancias» del 5 o del 
10 por ciento. 

Eso quiere decir que el valor de 
una resistencia de 1.500 ohmios y 
5 por ciento de tolerancia variará 
entre 1.425 y 1.575 ohmios, pero 
no 1.350 ó 1.700 ohmios. Además, 
en la mayoría de los casos, los va¬ 
lores de la resistencia estarán más 
cerca de los 1.500 y del 10 por 
ciento, el valor estaría entre 1,350 
y 1.650 ohmios. 

Así pues, se escogen los valores 
de las resistencias de forma que, 
cada valor de resistencia más sus 
límites de tolerancia nos den todos 
los valores posibles por «década». 
Así, la serie E12 (o del 10 por cien¬ 
to) llamada así por tener 12 resis¬ 
tencias, comprende estos valores: 

1, 1,2, 1,5, 1,8, 2,2, 2,7, 3,3, 3,9, 
4,7, 5.6.6.8 

que pueden ir multiplicados por 
















10,100, 1.000, 10.000, 100.000 ó 
un millón. Veamos que, aproxi¬ 
madamente «recubren» todos los 
valores posibles. Por ejemplo, 3,3 
más el 10 por ciento de 3,3 es 3,63; 
y 3,9 menos el 10 por ciento es 
3,51; es decir, se recubren. Así 
ocurre con los demás valores, aun¬ 
que en algún caso (pocos) no se 
cumplan. 

Se fabrican series con tolerancia 
del 20 por ciento {6 valores por dé¬ 
cada o E6), 10 por ciento (vista an¬ 
tes), 5 por ciento, 2 por ciento y 1 
por ciento. La más usada es la del 5 
por ciento, cuyos valores son: 1, 
1,1, 1.2, 1,3, 1,5, 1,6, 1,8. 2, 2,2, 



Figura í . 


CUADRO 1 

Fórmulas de potencia. 

P = V.I (vatios = voltios x amperios) 
V = P/1 (voltios = vatios/amperios) 
| - p/v (amperios = vatios/voltios} 


2,4. 2,7, 3. 3,3, 3,6, 3,9. 4,3, 4,7, 
5,1, 5,6, 6,2, 6.8, 7,5, 8,2, 9,1 (24 
valores). 

El problema suele ser que, en 
muchas tiendas, los valores de re¬ 
sistencias que tienen con toleran¬ 
cias del 5 por ciento son los valores 
del 10 por ciento (los doce valores 
anteriores, no los 24). 

Alguien puede preguntarse, 
¿cómo pueden funcionar los mon¬ 
tajes con esos «errores» del 5 o deí 
10 por ciento? Bueno, pues, afor¬ 
tunadamente, esos errores no sue¬ 
len tener gran importancia. Ade¬ 
más, los diseños se hacen teniendo 
en cuenta las tolerancias y, bueno, 


pues las cosas terminan marchan¬ 
do. 

Números y colores 

Ya sabemos cuáles son los valo¬ 
res posibles. Ahora bien, ¿cómo 
sabemos cuál es el valor de una re¬ 
sistencia? No se suelen utilizar nú¬ 
meros, no sea que al soldar la resis¬ 
tencia a la placa quede oculto el 
valor. Por eso se emplean bandas 
de colores, cada una con un signifi¬ 
cado. Así, las dos primeras indican 
el valor de la resistencia, la tercera 
es el multiplicador y la cuarta, la 
tolerancia. En la figura 2 aparecen 
los colores utilizados y un ejem¬ 
plo. 


resistir, una resistencia. Así, si una 
resistencia soporta 100 voltios y 10 
amperios eso quiere decir que debe 
disipar 1.000 vatios, vamos, una 
buena estufa. 

Nosotros no nos moveremos 
normalmente con esos números. 
Lo habitual será manejar resisten¬ 
cias de cuarto de vatio, medio va¬ 
tio, o, como mucho, uno o dos va¬ 
tios, aunque las haya mucho 
mayores. 

Para saber cómo de grande debe 
ser nuestra resistencia, nos basta 
con conocer la tensión o la co¬ 
rriente, Las fórmulas correspon¬ 
dientes aparecen en el cuadro 3, 


-cz \— Figura 2. 



negro = O 
marrón - 1 
rojo = 2 
naranja = 3 
amarillo = 4 
verde = 5 
azul = 6 
violeta = 7 
gris == 3 
blanco - 9 


multiplicador 

negro x 1 
marrón x 1 O 
rojo x 1 00 
naranja x 1.000 
amarillo x 10 000 
verde x 100 000 
azul x 1.000.000 


tolerancia 

oro: 5 % 
píate: 10 % 
si no hay: 20 % 



rojo violeta naranja oro 

2 7 x 1.000 5 % 


es de 27 Kny del S % 


CUADRO 2 

Múltiplos y submúltiplos. 

Mega íM> un millón = 1.000.000 

Kilo (K) mil =1.000 

mili fm) milésima = 0,001 

micro () millonésima = 0 r QGQ.O01 

nano (n) mllmillonésinia = Q r 000.000.001 

pico (p} billonésima = 0.000.000.000,001 


Otro detalle curioso es la jerga 
del gremio. No se suele decir «cua¬ 
tro mil setecientos ohmios», sino 
«cuatro K siete», ni «ocho millo¬ 
nes doscientos mil ohmios», sino 
«8 mega 2». Es más cómodo y que¬ 
da mejor. 

Potencia en las resistencias 

Al principio vimos qué era la 
potencia, y que tiene que ver con 
¡a energía, y el calor es una forma 
de energía. Lo que interesa ahora 
es cuánta energía, o cuánto calor, o 
cuánta potencia puede «disipar» o 



CUADRO 3 

V = R.l 

(voltios = ohmios x 
amperios) 

R = V/t 

(ohmios = 
voltios/amperios) 

1 = V/R 

(tensión = 
voltios/bhmios) 

P=|2R 

(vatios = (amperios) ? 
x ohmios) 

P = VVR 

(vatios = 

(vol ti os) 2 /bhm¡ os) 












































Soldador. 

esffrño. 

destornilladores 
y alicates de 
corte y punta 
fina son 
necesarios para 
emprender Ja 
tarea del 
montaje. 




Resistencias ajusta bles 

A veces, por ejemplo en los 
mandos de volumen, necesitamos 
poder variar el valor de una resis¬ 
tencia pero sin cambiar el compo¬ 
nente. Para ello se emplean los po¬ 
tenciómetros o resistencias ajusta- 
bies. Un potenciómetro tiene tres 
patas y un mango (en otros, más 
baratos, el mango se sustituye por 
una muesca en la que se encaja un 
destornillador, a éstos se les llama 
«potenciómetros de ajuste»). 

La idea es que hay una resisten¬ 
cia entre las dos patas de los extre¬ 
mos. pero no hace falta que la re- 



símbolo del diodo 



diodo rea! 


aquí debe haber 0,6 voltios más 
10 2 en el germanioí 


Figura 3a . 


^nrinuas i 




Figura 


corramos por completa, sino que 
podemos salir por la del centro. El 
valor de la resistencia se elige gi¬ 
rando el mango y midiendo o bien 
observando el resultado del circui¬ 
to. Los valores son los mismos que 
los de las resistencias de la El2, y 
no tiene sentido hablar de toleran¬ 
cia. Las potencias de los normales 
suelen ser de 1/4 vatio o de 1/2 va¬ 
tio y, en general, no dejan pasar 
demasiada corriente. 

Capacidad 

Para hacernos una idea de lo que 
es la capad idad, pensemos en un 


globo. A medida que lo vamos in¬ 
flando, es más difícil meter aire. Si 
el globo fuese muy fuerte, llegaría 
un momento en que no podríamos 
seguir hinchándolo. Algo parecido 
ocurre con el fenómeno de la capa¬ 
cidad, almacenamos energía eléc¬ 
trica que luego podemos utilizar 
para algo. La pega es que podemos 
almacenar bastante poca. 

Uno de los problemas de las ca¬ 
pacidades es que aquí no tenemos 
una relación tan clara entre ten¬ 
sión y corriente como en las resis¬ 
tencias. Así, un condensador no 
deja pasar la corriente eléctrica 
«continua» (que es de la que he- 
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Alternas 
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Figura 3a 


Alterna después 
pasar por diodo 
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mos hablado hasta ahora) y, en 
cuanto a la tensión, lo único que le 
importa es que no le apliquemos 
más tensión de la que puede 
aguantar, o reventaría como un 
globo demasiado hinchado. 

La unidad de medida de capaci¬ 
dades es el Faradio, cuyo único de¬ 
fecto es que es enorme. Así que na¬ 
die pida un condensador de 600 ó 
700 faradios, so pena de provocar 
muchas carcajadas. Normalmente 
los condensadores se miden en mi¬ 
cro farad ios, nan ofarad i os y picofa- 
radios. Incluso.se llega a tomar el 
picofaradio como unidad para los 
más pequeños, y así se habla de 


Resistencias, 
condensadores 
circuitos 
integrados y 
transistores son 
algunos de ios 
componentes 
necesarios para 
hacer cualquier 
montaje* 
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CU TOADO. ESTA PLACA 
ESTA CONECTADA A 
LA PATA CENTRAL 


v Salida 


Masa 


Figura 6b. 


condensadores de 22 K, que no son 
22.000 faradios, sino 22.000 pico- 
faradios. 

Condensadores 

Los condensadores tienen un 
problema parecido a las resisten¬ 
cias en lo que se refiere a la identi¬ 
ficación. Por desgracia no hay un 
código de colores, sino varios, y 
hay fabricantes que se limitan a es¬ 
cribir el valor de la capacidad y, 
debajo, el valor de la tensión máxi¬ 
ma. Así que lo mejores fijarse bien 
en la tienda. De todas formas, se 
aprende rápido a distinguirlos. 


Hay unos condensadores muy 
particulares, que son los electrolí¬ 
ticos. Su ventaja es que son los que 
permiten mayores capacidades; su 
pega es que sólo trabajan si se 
sienten a gusto. Para ello, hay que 
enchufarlos de forma que uno de 
sus terminales, el positivo, esté a 
mayor tensión que el otro. De no 
ser así. pueden enfadarse mucho y 
llegan a estalla. De todas formas, 
los fabricantes sí dejan muy claro 
cuál es el positivo, poniendo un 
signo (+) cerca, o un {-) cerca del 
negativo, o un estrechamiento en 
el positivo. Si no se ve claro, es 
conveniente preguntarlo en la 


tienda, y fijarse bien en el esque¬ 
ma. De todas formas, en el cuadro 
4 se dan los símbolos de los con¬ 
densadores que más se utilizan. 

Ultimo detalle sobre los electro¬ 
líticos. Si van a trabajar a 8 voltios, 
es mejor usar uno que aguante 16 
que no uno que aguante 9, y mejor 
aún que aguante 25 {pero sin pa¬ 
sarse). 

Diodos 

Antes dijimos que los materiales 
pueden ser conductores o aislan¬ 
tes. Bueno, pues como siempre 
hay gente original, hay unos que 
no son ni lo uno ni lo otro. Condu¬ 
cen mejor que un aislante y peor 
que un conductor, y se les llama 
«semiconductores». Su gran venta¬ 
ja es que, cuando se sienten a gus¬ 
to, pueden conducir tan bien como 
un conductor, pero si se enfadan, 
no dejan pasar nada. Por cierto 
que el proceso de hacer que se 
sientan bien o mal se llama «pola¬ 
rización». y normalmente depende 
de cómo les apliquemos ciertas 
tensiones y de dónde las aplique¬ 
mos. 

Los materiales semiconductores 
más empleados son el germanio, 
que fue el primero que se empleó, 
y el silicio, que es el más usado hoy 
día (también en los chips), y el ele¬ 
mento semiconductor más sencillo 
es e! «diodo». 

Un diodo es algo que, según cuál 
sea su polarización, deja pasar la 
corriente o no. Así (ver la figura 
3a), si tenemos un diodo de silicio, 
sólo conducirá si el terminal que 































UN SISTEMA COMPACTO DE DÍSCO 
PARA EL SPECTRUM Y EL SPECTRUM + 


El Discovery 1 es el más avanzado 
sistema de disco jamás desarrollado 
para el Spectrum. 

Diseñado en Inglaterra. incorpora la más reciente tecnología 
tapones a en discos de 3 5 El Discovery es el primero de la 
nueva generación deperiferjcos para el Spectrum 

Las asombrosas características del 
Discovery incluyen: 

* El más moderno sistema de disco de 3.5 1 

* SaNda Cení romes para impresora 

■ Interface de JoyshcK upo Kempstorr 

* Salida para monitor ma-noerofrio 

* Al i mentación p rop i a y para ei Spe c l r um 

* Conecior para otros perdóneos 

El Discovery se conecta simpFemenie en *3 parle trajera de 
so Specifum y le proporciona acceso instan 9 anea a ia 
velocidad, prestaciones y segundad de un sisiema de disco 


Él Discovery esta especialmente diseñado para aceptar los 
mismos comandos que et lufertace 1. pCTmitifrrKkile usar la 
mayoría de ios programas de casette 3 j servado 5 para 
Miicrodrive sm necesidad de modificarlos 

Ei Di se over y no ocupa sitio en la RAM des Spectrum por iq 
que podrá seguir o i si rutando de sus programas de |uego 
favonios sm necesidad de desconectarlo ya que deja libre 
loda la memoria del Specsrum Además, puede ya guardar la 
fuente de alimentación del Spectrum puesto * que el 
Discovery le proporciona tensión a través del colector 
trasero 

Ei Discovery. con acceso aleatorio permite por fm. 
aplicaciones senas para el Spectrum contabilidades 
facturaciones, tratamientos de tenfos. etc . Que eran 
posibilidades solamente, están ahora a Su alcance con ef 
Discovery Hay a su disposición un amplio catalogo de 
programas realmente útiles y otros que van apareciendo 
continua mente. Que le permitirán aprovechar la 
n sos pee hada capac i dad de su S pee t r um 






SISTEMAS INCLUIDOS 


Salida para impresora 
Inter lace poyslick 


Salida para monitor 

Conector de expansión 
Alimentación 


Compatible Centronics 
Cernedor siandardlipo D de 
nueve contactos Comp&lrble 
Kem&sion 

Concctor standard para monu 
tór monocromo 
De 56 vías 

220 Y 5fl H; j con cable e 
interruptor incorporado IMQ 
se precisa la alimentación 
del Spectrum 


FUTURAS AMPLIACIONES 

El Discovery 1 puede ampliarse a Discovery 2 en cualquier 
momento, colocando oirá umdad de disco idéntica en el 
espacio previsto pata ello Todas las conexiones ya eslán 
efectuadas en el interior para simplificar el montáis 
Ei Discovery Flus, que es oí nombre det hit de ampliación, 
eslá formado por la unidad de disco, 1 cable de 34 vi as y una 
RAM $i i$. que va msetiada en un zócalo previsto aesie fm. 


PROGRAMAS DISPONIBLES 

* Contabilidad profesional 

* Procesador de textos 

* Base de datos 

* etc. 


UNIDAD DE DISCO 


Tipo 

Modelo 

Pistas 

Caras 

Capacidad total 
Capacidad lormaleado 
Tiempo de acceso pi&ia.msiá 
Ahme ni ación 


Standard de 3 5 
354fli 
40 
1 

25éKbyles 
Kt» íes 
3imlisequndos 
La dei Discovery 






Sistema RTTY (Rx-Tx) para Spectrum 4,800 Ptas. 

Programador de EPHOMS (desde ía 2716 a la 27128) 

(para el Spectrum y el Am$trad464) 

Interface Centronics para GL 12 800 Ptas. 

Impresora Ibico 80 eoiumnas 30.400 Ptas. 



SOLICITELO A SU DISTRIBUIDOR DE 
INFORMATICA O DIRECTAMENTE A 



SISTEMAS LÓGICOS GIR0NA, S.A. 

Arda. San N are isa, 24 
17005 GERONA Tel. |972) 23 71 00 
















































NO tiene la raya está a 0,6 voltios 
más que el que SI tiene la raya. De 
todas formas, viendo el símbolo 
del diodo, queda muy claro en qué 
sentido conduce (en el de la fle¬ 
cha). Esta tensión de 0,6 voltios es 
aproximadamente igual para todos 
los diodos de silicio y se le llama 
«tensión de conducción». Para los 
de germanio, es de 0,2 voltios. 


Continua y alterna 

Normalmente se han usado .los 
diodos como «rectificadores». 
Veamos qué es eso. Hasta ahora 
hemos trabajado con tensiones y 
corrientes «continuas», es decir, si 
una tensión es de 5 voltios, siem¬ 
pre será de 5 voltios, y si una co¬ 
rriente es de 0,3 amperios, siempre 
será de 0.3 amperios. Pero ese no 
es el caso real. Si mirásemos cómo 
es la tensión de los enchufes de 
casa (o la corriente que podemos 
sacar de ellos) veríamos que su va¬ 
lor cambia constantemente (por 
eso se ie llama alterna), de forma 
que unas veces es positiva y otras 
negativa (exactamente varía 50 ve¬ 
ces por segundo), y esto se hace 
poique es más barato para trans¬ 
portarla. El problema es que la 
mayoría de los aparatos que utili¬ 
zan dispositivos electrónicos nece¬ 
sitan tensiones «de alimentación» 
continuas, y aquí es donde entran 
los diodos. Sí metemos una señal 
(corriente o tensión) alterna a un 
diodo, ésto sólo conducirá mien¬ 
tras que sea positiva, es decir, 
mientras que él esté «polarizado 
en directa», o sea, trabajando a 
gusto. Cuando deje de estar traba¬ 
jando a gusto, se enfada, polariza 
en «inversa» y no deja pasar nada. 
De esta forma podemos conseguir 
una señal positiva o «rectificada» a 
partir de una alterna (figura 3b). 

Transistores y circuitos 
integrados 

Un transistor es un grifo de elec¬ 
tricidad hecho con materiales se¬ 
miconductores. Como necesita po¬ 
larización para trabajar con agra¬ 
do, podemos hacer que trabaje 
como queramos, y, lo que es me¬ 


jor, puede amplificar señales pe¬ 
queñas a grandes. Por eso se le lla¬ 
ma «dispositivo activo». Como 
cada vez se pueden hacer más pe¬ 
queños, pueden juntarse muchos, 
haciendo así «circuitos integra¬ 
dos». que hacen cosas más o me¬ 
nos complicadas, a bajo precio. 
Luego veremos un ejemplo. 

Eso sí, hay que tener cuidado 
con los transistores. Son de varias 
clases, con diferentes misiones se¬ 
gún el tipo. Hay unos, los p-n-p, 
que trabajan con tensiones negati¬ 
vas, otros, los n-p-n, trabajan con 
positivas. En cualquier caso, tie¬ 
nen normalmente tres terminales, 
emisor, base y colector. Como hay 


El Hardware, un mundo 
donde el temple profesional 
se une a la preparación 
teórica más firme. 


muchos tipos distintos, lo mejor es 
preguntar en la tienda cuál es cada 
uno (figura 4). 


La placa 

Al principio habíamos dicho 
que era el sitio donde viven los 
componentes. Hace años no se uti¬ 
lizaban, sino que se conectaban 
mediante cables. Lo que pasa es 
que es más cómodo y seguro usar 
placas. 

Suelen ser de baquelita o de fi¬ 
bra de vidrio, y llevan una cara re¬ 
cubierta de cobre. También las 
hay de doble cara y muJticapa, y 
otras cosas raras que no nos intere¬ 
san ahora. A la cara de cobre se le 
llama «cara de circuito» y es donde 
se hacen las conexiones. La otra es. 
la de componentes, que es donde 
se ponen las resistencias, los con¬ 
densadores. etc., y se ponen ahí 
para evitar que molesten al otro 
lado (ver figura 5). 


Si nos queremos hacer una, el 
proceso más barato y sencillo es el 
siguiente: 

— Limpiamos bien la cara de 
cobre. 

— Una vez seca, pintamos con 
un rotulador resistente al agua 
aquellas partes que queremos que 
sigan cubiertas de cobre (es decir, 
las conexiones). 

— Sumergimos la placa en una 
disolución de cloruro férrico (se 
encuentra en tiendas de electróni¬ 
ca) y, si puede ser, preferiblemente 
caliente y en un recipiente que no 
se utilice para otra cosa, porque los 
estropea bastante. AI cabo de un 
rato, más bien largo, se habrá des¬ 
prendido el cobre que no nos inte¬ 
resa. 

— Quitamos los restos de rotu¬ 
lador y taladramos la placa en los 
puntos donde queremos colocar 
los componentes. Ya está hecha la 
placa. 

También se pueden utilizar 
otros productos en lugar de cloruro 
férrico, pero son más caros y peli¬ 
grosos. Otra posibilidad es com¬ 
prar placas ya hechas (tipo uni- 
print) que ya tienen hechos con¬ 
tactos, de forma que sólo hay que 
soldar los componentes y unirlos 
por los cables. 


Soldar 

Para soldar componentes se em¬ 
plea un soldador tipo «lápiz» de 
unos 25 vatios de potencia, que no 
son caros. No es conveniente usar 
los soldadores de pistola, suelen 
ser demasiado potentes y pueden 
dañar los componentes. 

Algo que no hay que olvidar es 
que el soldador se calienta lo sufi¬ 
ciente para producir quemaduras 
serias, o provocar incendios, así 
que interesa tener un soporte ade¬ 
cuado para él, y no dejarlo nunca 
enchufado, ni cogerlo por la punta 
o apoyarse en él. En cuanto al esta¬ 
ño, es un compuesto de estaño, 
plomo y resinas para facilitar la fu¬ 
sión. 

Lo primero que hay que hacer 
es, con el soldador caliente, fundir 
un poco de estaño sobre la punta 
del soldador, de forma que ésta 
quede estañada y protegida. Hay 







que evitar rayar la punta, o cepi¬ 
llarla o limarla cuando esté calien¬ 
te. 

Para soldar componentes a la 
placa, calentamos la patilla del 
componente con el soldador y 
aplicamos el estaño al terminal, no 
al soldador. El estaño fundido debe 
quedar fluido, y solidificarse sin 
empañarse o de forma que quede 
con partes «distintas». Eso puede 
ser una mala soldadura. 

Cuando se suelden transistores 
hay que tener cuidado de que no se 
calienten demasiado, pues podrían 
dañarse. Para evitarlo, además de 
hacer rápidamente la soldadura, es 
conveniente coger el terminal que 
estemos soldando con unos alica¬ 
tes de punta fina, de forma que sir¬ 
van para «radiar» el calor. En 
cuanto a los integrados, en ocasio¬ 
nes se usan «zócalos» para poder 
cambiar un integrado averiado sin 
necesidad de utilizar el soldador. 
La idea es soldar el zócalo y luego 


«enchufar» el integrado en el zóca¬ 
lo. Por supuesto, la sustitución de 
integrados o de cualquier otro 
componente debe hacerse siempre 
cuando el circuito esté desconecta¬ 
do, sin tensión ni corriente. 


Ejemplo 

Como ejemplo de todo lo visto, 
vamos a diseñar una fuente senci¬ 
lla para alimentar un circuito con 
puertas lógicas TTL. El circuito 
aparece en la figura ó. Los elemen¬ 
tos que aparecen en él (están nu¬ 
merados) son: 

1. Transformador: su misión 
es que los 220 voltios de la red pa¬ 
sen a ser los 9 que necesitamos. 

2. Puente de diodos: en lugar 
de usar 4 diodos separados, usa¬ 
mos 4 juntos. Las dos patillas con 
«>-'» se conectan a las salidas del 
transformador. El (+) se conecta al 


condensador Cl, y el (-) será la 
masa de todo el conjunto. 

3. Condensador: su misión es 
hacer que la señal sea algo más 
continua y dar corriente. 

4. Regulador: éste es el que 
hace todo el trabajo sucio, y es un 
circuito integrado. 

5. Condensador de salida: es 
para mejorar el funcionamiento. 

Datos de la fuente: tensión de sa¬ 
lida: 5 V; corriente máxima: 0.400 
A. 

Componentes: 1 transformador 
de 220 V a 9 V y 0,720 A; 1 puente 
rectificador; corriente: 0,5 A (para 
más seguridad), tensión: 20 voltios. 

Condensadores: Cl: 100 F. 16 
voltios (ó 25); C2:0,01 F, 9/16 vol¬ 
tios. Los dos son electrolíticos. 

1 regulador integrado 
LM78M05 (en la figura se da el pa¬ 
tillaje). 

Francisco López 
Larrio 








INFINITA PRECIS 


La suma y la resta: poner 
un número encima de otro 


Convocamos en este número a 
todos aquellos que amen las mate¬ 
máticas, o quieran aprender algo 
sobre números gracias a su Spec- 
trum. Vamos a analizar los siste¬ 
mas artiAciales de manejo de nú¬ 
meros enteros con artimética de in¬ 
finita precisión. 

La aritmética humana: 
contando con los dedos 

Para poder enseñar a un ordena¬ 
dor a contar bien (qué horrendo es 
que 40000+40000 valga 8E4), pri¬ 
mero hemos de comprender cómo 
lo hacemos NOSOTROS. 

Cuando los humanos utilizamos 
números largos, ponemos una cifra 
detrás de otra hasta rellenar cade¬ 
nas muy largas de dígitos que van 
del 0 al 9. Esto viene determinado 
naturalmente porque tenemos un 
total de diez dedos en las manos, y 
nos es muy fácil representar una 
cifra por medio de dichos diez de¬ 
dos. 

Un ordenador, sin embargo, 
cuenta con «dedos» que pueden 
ponerse en una o dos posiciones, 
los bits, usando la aritmética bina¬ 
ria. Si los hombres condideráse- 
mos las dos posiciones que pueden 
tener los dedos, doblados o exten¬ 
didos, podríamos contar desde 0 
hasta 1023. Pero nuestro cerebro 


es demasiado complejo para ello, y 
por eso prefiere el sistema de con¬ 
tar el número de dedos extendidos. 

Si queremos que un ordenador 
cuente en números muy grandes, 
nos bastaría con dividir estos en 
potencias de 256, con lo que po¬ 
dríamos asignar a cada cifra «hexa- 
quincuagesimobicentesimal» un 
carácter del conjunto ASCII. Pero 
esto presenta un problema curioso: 
para tomar un número de teclado, 
o imprimir un número en la panta¬ 
lla, podríamos perder muchas ve¬ 
ces más tiempo que haciendo una 
división, si es que llegásemos a de¬ 
sarrollar el sistema adecuado para 
hacerlo. 

Es por ello que nos resulta más 
cómodo utilizar tiras de caracteres 
en los que cada carácter represente 
exactamente la cifra que sea. Es 
decir, la tira "1234” representará 
el número 1234. De este modo es 
muy fácil intercambiar datos entre 
el ordenador y nosotros, y, como 
veremos, es igualmente fácil ope¬ 
rar con estos números, ya que lo 
haremos exactamente igual que lo 
hacemos nosotros al usar lápiz y 
papel para sumar, restar, multipli¬ 
car o dividir. 

Pasamos, pues, a explicar cada 
una de las operaciones elementales 
en nuestra aritmética para ordena¬ 
dor. 


Como ya hemos dicho antes, el 
modo de operar con nuestros nú¬ 
meros largos es el mismo modo en 
que lo hacemos con un lápiz y pa¬ 
pel. Por tanto, hagamos una suma. 

Vamos a sumar 12345+567890. 
Primero escribimos un número en¬ 
cima del otro, haciendo coincidir 
las cifras de igual peso (figura 1). 

A continuación sumamos las 
primeras cifras a estribor (por la 
derecha) (figura 2). 

Luego la siguiente (figura 3). 

El uno que nos ha sobrado lo 


12345 
+ 567890 


Figura i 



12345 


+ 567890 


5 

Figura 2 


12345 


+567890 


35 - 1 


Figura 3 


Listado 1 


Listado 2 



2000 IF LEN a*<LEN b$ THEN LET 
s*=a*: LET aí=b$: LET b$=s* 

2010 LET 11=LEN aS: LET 

LET 1=LEN b*: LET a2=0: FQR 1=0 

TO 1-1 

2020 LET al=VAL a*ai-i)+VAL bit 
1—i)+a2: LET a2=INT tal/10): LET 
e$=STR* <al-10*a2)+c*s NEXT i 
2030 POR i=l TO 11-1: LET al-VA 
L a$ < 1 i-i > +-a2; LET a2=INT <al/10 
): LET c*=STR* (al-a2*10)+c$: NE 
XT i: IF a2 THEN LET c*="l"+c4 
2040 RETURN 


\ 


3000 LET 11=LEN a*; LET 1=LEN b* 
: IF 11<1 ÜR (11=1 AND a*<b*> TH 
EN LET cí="E": RETURN 
3010 LET a2=0: LET c$="": FQR 1= 
O TO 1-1 

3020 LET al=VAL a$ ti 1-1)—VAL b*( 
1—i)-a2: LET a2=al<0: LET c$=STR 
í (al+-10#a2> +c$: NEXT i 
3030 FOR i=l TO 11-1: LET al=VAL 
a*(ll-i>-a2: LET a2=al<0: LET c 
.$=STR$ Íñl+-10*a2) +cí: NEXT i 
3040 FOR 1=1 TO LEN c$-i: IF c$( 
1)0*O" THEN RETURN 
3050 LET c$=c*<2 TO ): NEXT i: R 
ETURN 


















EN BASIC 


Hgura 4 



Figura 5 

metemos en la siguiente columna 
para sumarlo también (figura 4). 

Y así sucesivamente, llegando a! 
resultado (figura 5). 

Evidentemente, si al sumar las 
últimas cifras nos hubiese sobrado 
otro uno, se lo habríamos añadido 
al resultado por la izquierda. 

Cuando queremos que el orde¬ 
nador calcule una suma nos en¬ 
contramos con que hay tres partes 
distintas a tratar, según se ve en el 
listado 1: 

a)La suma de las parejas de ci¬ 
fras coincidentes más lo que nos 

Listado 3 


sobrase de la suma de la pareja an¬ 
terior (líneas 2010 y 2020). 

b) La suma de las cifras más al¬ 
tas del número más largo (las que 
no tienen pareja en el otro núme¬ 
ro) más lo que nos sobrase de la 
suma anterior (línea 2030). 

c) Añadir lo que sobrase de las 
etapas anteriores como primera ci¬ 
fra del resultado (IF a2 THEN 
LET c$=“l ”+cS). 

Todo ello lo podemos ver re¬ 
suelto en el listado 1. que es una 
subrutina que suma el número 
contenido en aS con el contenido 
en b$, devolviendo el resultado en 
c$. 

En el listado 2 podemos ver 
cómo se resuelve la resta por un 
sistema similar. Sólo hemos de ha- 

Listado 4 


cer dos observaciones al respecto. 
Como estamos trabajando con nú¬ 
meros enteros positivos, intentar 
restar un número de otro menor ha 
de considerarse un error, y por ello 
la subrutina devuelve como resul¬ 
tado la tira “E’\ Este resultado 
también se utiliza en la división. 
Otro punto interesante a resaltar es 
que, antes de abandonar la rutina 
de resta, se eliminan todos los ce¬ 
ros a la izquierda del resultado, 
coo haría cualquier persona decen¬ 
te. 

La multiplicación: ir paso a 
paso hacia la izquierda 

Siguiendo con el sistema de obli¬ 
gar ai ordenador a que trabaje 


4000 LET kl=LEN rt: LET k=LEN mí 
: IF k l<k THEN LET sí=mí: LET m 
$=r$: LET rí=s$: LET a2=k: LET k 
=kl: LET k Í=a2 

4010 LET cí= n O": FOR j=k TO 1 ST 
EP -1: LET a3=VAL mí(j) 

4020 (50 SUB 4500: OYF bí= n O n THEN 
GO TO 4050 

4030 LET a$=ct: FOR i=l TO k-js 
LET bí=bí+ ,, 0": NEXT i: GO SUB 20 
00 • 

4050 NEXT j¡ RETURN 
4500 LET a2=0: LET bí= M ": IF a3= 
O THEN LET bí= M 0 M : RETURN 
4510 FOR i=kl TO 1 STEP -1: LET 
al=a3*VAL rííi)+a2: LET a2=INT ( 
al/10): LET bí~STRÍ (al-10*a2)+b 
í: NEXT i 

4520 IF a2 THEN LET bí=STRÍ a2+ 
bí 

4530 RETURN 


4500>LET a2=0;LET bí="":IF a3=0T 
HEN LET bí= H 0 , ‘:RETURN 
4510 FOR i=kl TO 1 STEP -1: LET 
al=a3*VAL r$(i)+a2: LET a2=INT ( 
al/10): LET bí=STRí <al-10*a2)+b 
i: NEXT i 

4520 IF a2 THEN LET bí=STRi a2+ 
bí 

4530 RETURN 

5000 LET k=LEN mí: LET k1=LEN r$ 
: LET ni="": IF k<kl OR (k=kl AN 
D mí<rí> THEN LET ní=‘ 1 0" i RETUR 
N 

5010 LET aí=mí( TO kl): LET m$=m 
í < k, 1 +1 TO ) 

5020 GO SUB 5500: LET k~LEN mí: 

IF k=0 THEN ■ GO TO 5040 

5030 LET aí=aí+mí< TO 1): LET mí 

=mí(2 TO ): GO TO 5020 

5040 IF ní(1)="0 M THEN LET ní-n 

í C 2 TO ): GO TO 5040 

5050 RETURN 

5500 FOR n=9 TO 1 STEP -1: LET a 
3=n: GO SUB 4500: GQ SUB 3000: I 
F cí="E" THEN NEXT n: LET n=Q¡ 
LET cí=aS 

5510 IF cí="0" THEN LET cí="" 
5520 LET aí=ci: LET ní=ní+STRí n 
5530 RETURN 















como nosotros lo hacemos, vamos 
a descubrir cómo multiplicamos. 
Decimos descubrir porque la 
mayor parte de la gente no se da 
cuenta de cómo lo hace. 

Cojamos dos números largos, 
por ejemplo el 3452 y el 5606721. 
El primer paso que realizamos es 
poner sobre el papel los dos núme¬ 




5606721 
x 3452 


í. 



Figura 6 


ros. uno debajo del otro con el más 
corto debajo (figura 6). 

El sistema que utilizamos es ir 
multiplicando cada una de las ci¬ 
fras del número de abajo por el nú¬ 
mero de arriba. Cada vez que reali¬ 
zamos una de estas multiplicacio¬ 
nes, ponemos el número siguiente 
un paso más a la izquierda (figura 

n _ 

5606721 
x 3452 

11213442 
28033605 
22426884 
16820163 


Figura 7 


Este avance hacia la izquierda es 
equivalente a multiplicar por 10 
varias veces, como se ve en la figu¬ 
ra 8. 

Como colofón, sumamos dichos 
productos parciales, de lo que re¬ 
sulta la solución que buscábamos. 


5606721 
x 3452 


11213442 

280336050 

2242688400 

16820163000 


_ 19354400892 

Figura 8 

Antes hemos creado una rutina 
que sumaba dos números, por lo 
que modificaremos algo el proceso 
que realizamos sobre el papel. La 
rutina que escribamos ira suman¬ 
do los productos parciales según 
los vaya generando, en vez de es¬ 
perar al final para sumarlos todos 
juntos. 

En cuanto a la multiplicación 
por un sólo dígito, podemos ver en 
el listado 3. en las lineas 4500 a 
4530 la rutina que multiplica el 
número de una sola cifra conteni¬ 
do en la variable a3 por el número 


largo en r$, devolviendo el resulta¬ 
do en bS. Esta rutina es tan sencilla 
de entender que no daremos expli¬ 
caciones más profundas. 

La rutina principal de multipli¬ 
cación. contenida en las lineas 
4000 a 4050, realiza exactamente 
lo que hemos dicho. El bucle FOR 
j=k TO 1 STEP-1 va realizando la 
multiplicación eirá a cifra de m$ 
por'rj por medio de sucesivas lla¬ 
madas a la subrutina en 4500. El 
resultado, en b$, se suma al resul¬ 
tado anterior, en cS por medio de 
la rutina de suma que creamos an¬ 
tes en lal la línea 2000. Así pues, la 
función que desempeña dicha ruti¬ 
na es devolver un valor c$=mS*n$. 

La división por el sistema 
de prueba y sigue 

El proceso de división que va¬ 
mos a analizar es el de división en¬ 
tera, que es la que divide un núme¬ 
ro por otro devolviendo un cocien¬ 
te y un resto. Nosotros desarrolla¬ 
remos una única rutina que de¬ 
vuelva ambos resultados, ya que es 
más cómodo. 


4653253654 1 345 


506 



Figura 9 


solución sencilla y elegante fue el 
griego Eratostenes, que inventó 
¡a «criba» de su mismo nombre. 
Esta consiste en escribir una lista 
de números del l al número más 
grande que queramos estudiar. 
Empezando por el dos, contare¬ 
mos a partir del número siguien¬ 
te de dos en dos, tachando cada 
vez el número en el que se acabe 
la cuenta. A continuación se 
loma el siguiente no tachado y se 
cuenta en la cantidad que él indi¬ 
que, tachando de nuevo los nú¬ 
meros en que paremos. De este 
modo, cuando no queden más 
números sin tachar a continua¬ 
ción del último utilizado, los que 
nos queden sin ravajo encima 
formarán la lista de primos bus¬ 
cada. Este método, realizado con 
lápiz y papel, deja de ser práctico 



LOS NUMEROS: EL ETERNO RETO MATEMATICO 


Uno de los temas que más tinta 
ha hecho correr entre los teóricos 
matemáticos, es el de los núme¬ 
ros primos, números que presen¬ 
tan una serie de propiedades es¬ 
pecíficas que los hacen muy inte¬ 
resantes para aquellos que gus¬ 
tan de los problemas matemáti¬ 
cos incomprensibles. 

Un número primo es un núme¬ 
ro natural (entero y positivo) que 
sólo puede ser dividido por si 
mismo y por la unidad. Tal es el 
caso del numero 11, y no lo es el 
6, que es divisible por 2 y 3. Evi¬ 
dentemente. el primer asunto in¬ 
teresante relacionado con los pri¬ 
mos que nos surge es el de identi¬ 
ficarlos. Un primer modo de ha¬ 
cerlo es el de tomar el número 
que queremos saber si es primo o 
compuesto (no primo) y dividirlo 


entre todos los números menores 
que él para ver si entre dichas di¬ 
visiones hay alguna que no deje 
resto. Este es un método burdo y 
basto, ya que sabemos que si un 
número es par no puede dividir a 
uno impar, por ejemplo. Investi¬ 
gando sobre esta idea, los mate¬ 
máticos llegaron antiguamente a 
conclusiones interesantes para 
saber si un número es divisible 
por una serie concreta de ellos. 
Cabe contar entre dichas conclu¬ 
siones que un número es divisible 
por dos si su última cifra es par. 
es divisible por tres si la suma de 
sus cifras también lo es. es divisi¬ 
ble por cinco si su última cifra es 
0Ó 5, etcétera. 

Otro problema curioso fue el 
de elaborar una lista de números 
primos. El primero en dar una 


















Para dividir un número por 
otro, ponemos el dividendo y, a 
continuación, el divisor metido en 
una caja (figura 9). 

El sistema que seguimos es el de 
probar a ver si podemos dividir las 


4653253654 1 
-345 

1 345 


1 

120 



Figura 10 


primeras cifras del dividendo, en 
un número igual a las del divisor, 
por este último. Si es posible, se 
realiza la división y el cociente se 
pone bajo el divisor, como se 
muestra en la figura 10, 

Esto se repite con el número for¬ 
mado por las cifras del resto ante¬ 
rior y las cifras no utilizadas hasta 
el momento (figura I 1). 

Para hallar estas divisiones in¬ 
termedias nos basamos en la bús¬ 
queda de un número entre 0 y 9 tal 
que multiplicado por el divisor de 
un número menor que las cifras se¬ 
leccionadas y tal que el divisor 
multiplicado por el siguiente nú- 


4653253654 | 345 


13487691 = cocie n 


1203253654 

-1035 


168253654 

-1380 


30253654 

-2760 


2653654 

-2415 


238654 

-2070 


31654 

-3105 


604 

-345 


RESTO = 2í9 


Figura 11 

mero sea mayor que ellas. El ser 
humano, que es muy intuitivo, uti¬ 
liza algoritmos aparentemente 
sencillos para hallar rápidamente 
el número de una cifra que preci¬ 


samos, pero esto es difícil de imitar 
por un ordenador. Por ello, en él 
usaremos un sistema de búsqueda 
iterativo, en el que probaremos 
con los números del 9 al 1 en este 
orden hasta que encontremos el 
adecuado. Para ello, habremos de 
probar con cada uno a multiplicar¬ 
lo por el divisor, por lo que hare¬ 
mos uso de la subrutina en la línea 
4500 relacionada con la multipli¬ 
cación. 

A continuación habremos de ver 
el resultado de restar dicho pro¬ 
ducto de las cifras seleccionadas 
del dividendo, para lo que usare¬ 
mos la rutina de resta en 3000. El 
valor devuelto “E” por ella nos 
servirá para probar sí el número de 
una cifra elegido es válido, o hay 
que probar con otro. 

En el listado 4 podemos ver la 
rutina completa de división, que 
realiza la de mS entre r$, dejando 
el cociente en nS y el resto en c$. 
Se ha dividido en dos bloques, para 
su mejor comprensión. El primero, 
líneas 5000 a 5040, se encarga de 
la repetitiva labor de ir elaborando 
el resultado a partir de lo que le de¬ 
vuelve la rutina en las líneas 5500 
a 5530, que es la encargada de rea¬ 
lizar cada una de las pequeñas di¬ 
visiones parciales. 


a pan ir del número 100, y no re¬ 
sulta interesante para saber si un 
número concreto es primo. 

La siguiente cuestión que se 
planteó es una consecuencia ló¬ 
gica del uso de la criba de Era- 
tostenes. Si hubiese un número 
finito de primos, resultaría inte¬ 
resante hacer una criba lodo ¡o 
grande que se precisase y elabo¬ 
rar una lista de primos que se pu¬ 
blicaría con tapas de oro (es un 
decir). Fue el famoso Euclides el 
que demostró de un modo defini¬ 
tivo que el conjunto de primos es 
infinito, lo que echó a! traste tas 
esperanzas de muchos matemá¬ 
ticos (y editores). La prueba es 
muy sencilla, y está basada en 
que, si sumamos 1 a un número 
A que es múltiplo dé otro número 
B, el número residíante, C, no es 


múltiplo de B (salvo si B es la 
unidad). Así pues, supongamos 
que disponemos de ana lista de 
primos. Multiplicando todos en¬ 
tre sí (salvo el 1), nos da un nú¬ 
mero que es múltiplo de todos 
ellos. Sumando la unidad a este 
resultado, tendremos otro núme¬ 
ro que no ej múltiplo de ninguno 
de ellos. Este número puede ser 
primo, en cuyo caso lo unimos a 
la lista. Si no es primo, entonces 
existen al menos dos números 
primos menores que él, que le di¬ 
viden, en cuyo caso los uniremos 
a la lista. Con esta ampliada de 
este modo, repetimos la opera¬ 
ción, volviéndose a ampliar de 
nuevo. Como esto es cierto siem¬ 
pre, entonces la lista nunca esta¬ 
ría cerrada, y por tanto es infini¬ 
ta. 


Ante tal prueba de fuerza, se 
decidió olvidar por completo la 
cuestión de conocer todos los pri¬ 
mos que existen, y se plantearon 
dos nuevos problemas: descubrir 
algoritmos útiles y rápidos que 
permitan descubrir si un número 
es primo, problema que trasvasa¬ 
mos a los lectores por medio de 
este concurso; y descubrir núme¬ 
ros primos muy gordos, lo que en 
Estados Unidos hace furor (como 
todo lo que tiene que ver con «lo 
más grande», «lo más largo», 
etc.) entre los programadores de 
ordenadores. El récord actual 
que sepamos en esta redacción, 
está en un número primo de 
39,751 cifras de la forma 2 n-1, 
descubierto en la conocida Uni¬ 
versidad de Harvard. 





























SHERLOCK 


Melbourne House 
Spectrum 48 K 


Para todos aquellos que tienen 
vocación de detective y les apasio¬ 
nen los relatos de Agatha Christie 
y Sherlock Holmes, Philip Mit- 
chell, ya conocido por ser el crea¬ 
dor del famoso juego del «Hobbit» 
nos deleita ahora con una nueva 
aventura conversacional basada en 


tas increíbles hazañas del inefable 
Sherlock. 

El juego, al igual que el Hobbit, 
está desarrollado en inglés y per¬ 
mite al jugador conversar, hacer 
preguntas e incluso discutir las 
conclusiones que va presentando 
el programa, aunque esto, en prin¬ 
cipio, puede presentar algunos in¬ 
convenientes a ¡os jugadores que 
no dominen bien el inglés. 

El objetivo del juego como po¬ 
déis suponer es descubrir al asesi- 
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El recibidor de la casa 
de Sherlock Holmes 
es el primer paso para 
empezar nuestra 
aventura. 


Baker Street: la calle 
donde vive nuestro 
héroe y uno de los 
primeros sidos donde 
ponemos a prueba el 
ingenio. 


you are on Balee 
Street* To ■,h 
nor t h t he r e i t h• 
f ron t d oowr . 

: * Mor tfo 3larri 
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> D. 
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no de nnos crímenes, para ello ten- 
drás que tener las ideas muy claras, 
interrogar a sospechosos, hacer de¬ 
ducciones y estudiar las pistas que 
vayas encontrando. 

La pantalla aparece dividida en 
dos zonas, en la parte superior va 
apareciendo el texto que explica lo 
que ocurre en ese momento y los 
gráficos, y la parte inferior (separa¬ 
das por un reloj que indica el tiem¬ 
po relativo en la aventura) es don¬ 
de introduces tus preguntas y con¬ 
clusiones. 

Junto al programa viene tam¬ 
bién una hoja que puede resultar 
muy útil a la hora de deducir pis¬ 
tas, ya que se refiere a itinerarios 
del metro con horas de llegada y de 
salida a los lugares en los que se 
centra la aventura. 

Las pantallas gráficas animan la 
acción del juego y nos sitúan en el 
ambiente en el que se desarrolla la 
acción, algunas veces incluso nos 
dan pistas o despiertan inquietudes 
sobre determinado hechos. 

Cuando no tengas pistas o quie¬ 
ras consultar algo puedes recurrir a 
tu viejo amigo Watson que te dará 
información y que siempre te 
acompañará donde quiera que 
vayas. 


Control: Teclado. 

Jugadores: Uno. 

Gráficos: Resultan atracti¬ 
vos al aparecer al lado del 
texto y situamos en el lugar 
de los hechos. 

Sonido: No tiene. 

Nivel de dificultad: En gene¬ 
ral es bastante elevado. 

Originalidad: Aunque ya 
existen precedentes similares 
en el mercado, la idea en la 
que se basa es original. 

Conclusión: El juego es inte¬ 
resante pero puede resultar 
complicado sobre todos a 
aquellos que no dominen 
bien el inglés. 








































THE WAY OF THE EXPLODIGN FIST 


ERBE 

Spectrum 48 K 
2.900 pías. 


En los últimos tiempos los jue¬ 
gos de lucha están adquiriendo 
cada día un mayor auge en video¬ 
juegos y, dentro de éstos podemos 
encuadrar a FIST, un programa de 
kárate con un objetivo a seguir El 
de derribar contrarios, sólo así po¬ 
drás pasar a una categoría mayor y 
enfrentarte a otros contrincantes 
más hábiles y rápidos. Para conse¬ 
guirlo, deberás tener un perfecto 
dominio tanto en los golpes como 
en la defensa si no quieres verte 
sorprendido por uno de los ataques 
del contrario que pueden ser a ve¬ 
ces espectaculares y si alguno de 
los dos contendientes logra llegar 
antes de este tiempo a la puntua¬ 
ción de dos i pones (cada ipón se 
representa como una luna) vence 
el combate; el sistema de puntua¬ 
ción se realiza en función de la di¬ 
ficultad del golpe y varía de medio 
a un ipón. 

En el caso que quieran partici¬ 
par dos jugadores el programa 
ofrece la oportunidad de enfrentar¬ 
los, esto crea una gran rivalidad 
entre ellos y hace más interesante 
la competición. El juego puede ser 
controlado tanto por el teclado 
(que puede ser redefinido) como 
porjoystick. 

Los gráficos que aparecen de 
fondo no resultan espectaculares, 
pero esto no resta al programa in¬ 
terés, ya que no juegan un papel 
tan importante como la definición 



El primer combate se realiza 
en el campo y constituye ei 
desafío inicial de todo 
aspirante a karateka. 


Una vez dentro de la mansión 
del Buda siguen ios 
combates, pero esta vez 
contra un contrincante más 
temible. 



CE mt. 




de los movimientos de los karate- 
kas y la rapidez con que se reali¬ 
zan. 

La dificultad, como es lógico, 
aumenta a medida que vas ganan¬ 
do combates, pero para subir de 
una categoría a otra (novicio, pri¬ 
mer dan, segundo dan, etc.), ten¬ 
drás que ganar dos veces al mismo 
contrincante. 

Al contrario que en otras versio¬ 
nes el objetivo de este juego se cen¬ 
tra solamente en la propia lucha y 
habilidad de cada jugador para ba¬ 
tir al contrario y no incluye otros 
obstáculos que dificulten el juego, 
sin embargo, la rivalidad que se 
crea entre los dos jugadores es mo¬ 
tivo suficiente para que la diver¬ 
sión esté asegurada. 


! Control: Teclado y Joystick. 
Jugadores: Uno(contra el or¬ 
denador) o dos (contra ellos 
mismos). 

Gráficos: No son muy bri¬ 
llantes, los dibujos de fondo 
varían con relación al nivel. 
Sonido: Sólo se aprecia al 
pasar de pantalla o al efec¬ 
tuar un golpe. 

■ Nivel de dificultad: Aumenta 
| con la categoría. 
Originalidad: Es bastante 
original aunque parece que 
en el mercado hay ya bastan¬ 
tes juegos de kárate. 
Conclusión: Este es un buen 
juego de lucha que como ras¬ 
go más interesante es la Rost¬ 
ió 1 idad de enfrentara dos ju- 
5 gadores. 
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En este mes se describe el último conjunto de rutinas 
internas que usa el nuevo sistema operativo, con lo que sólo 
nos queda deñnir el funcionamiento y uso de cada uno de 
los comandos, cosa que dejamos para el próximo mes, en el 
que acaba esta serie de artículos destinada a explicar el 
funcionamiento interno de este programa. 



































































Un nuevo operativo 0 
para el Spectrum 



El interprete BASIC es utilizado 
de dos formas, entrando en LIS- 
CAN realiza el análisis sintáctico 
de la línea, y entrando en LlRUN 
interpreta la línea o el programa. 
La forma de distinguir las dos fun¬ 
ciones es mediante el bit 7 de la va¬ 
riable FLAGS, que está a uno du¬ 
rante la ejecución y a cero en el 
análisis sintáctico. E! test de este 
bit se hace siempre llamando a 
SINTAX-Z en la dirección 2530. 
De esta forma se ahorra un byte en 


74é> LISCftN RES 7. tIY+1) 


747 


CALL 

EL TNG 

748 


XGR 

A 

749 


LD 

t^5C47),A 

750 


DEC 

A 

751 


LD 

<*5C3A> , A 

752 


JR 

STMTL1 

753 

STLOOP 

CALL 

NEXTCH 

754 

STMTL1 

CALL 

* 16BF 

755 


INC 

< IY+13> 

756 


JP 

M,"ÍCBA 

757 


CALL 

GETCH 

758 


LD 

B, -"00 

759 

l 

CP 

*0D 

760 


JP 

Z,LINEMD 

761 


CF 1 

*3A 

762 


JR 

Z ? STLOOP 

763 


LD 

HL.STNRET 

764 


F'USH 

HL 

765 


LD 

C, A 

766 


CALL 

NEXTCH 

767 


LD 

A, C 

768 


DP 

*CE 

769 


JR 

NC,NNCOM 

770 


SUB 

A 18 

771 


JR 

C,REPC 

772 


CP 

-"08 

773 


JR 

C ? NUCOM 

774 

REPC 

JP 

"1C8 A 

775 

COMRD 

LD 

A,(HL) 

776 

NUCOM 

LD 

HL¡, TABSIN 

777 


JR 

GNPAR 

778 

NNCOM 

LD 

HL f TABCRD 

779 


LD 

C, A 



cada llamada, aunque es más len¬ 
to. 

Para interpretar una línea opera 
de la siguiente manera. En primer 
lugar coge el código de! comando. 
Si éste corresponde a una función 
del BASIC estándar busca en la ta¬ 
bla TABCRD para ver si se trata 
de uno de los comandos que han 
sido rescritos. Si es así, se les asig¬ 
na un código para entrar en la nue¬ 
va tabla de sintaxis. Si es un co¬ 
mando nuevo o uno antiguo no re- 


780 

CALL 

. "16DC 

781 

JR 

C,CDMRD 

782 

LD 

A>C 

783 

LD 

HL,*IA4S 

784 

sue 

"CE 

785 GNPAR 

LD 

C p A 

786 

ADD 

HL, BC 

787 

LD 

Cp (HL) 

788 

ADD 

HL, BC 

789 

JR 

GETPAR 

790 SCLOOP 

LD 

HL,<*SC74) 

791 GETPAR 

LD 

A,(HL) 

792 

INC 

HL 

793 

LD 

<"5C74),HL 

794 

LD 

BC,SCLDOP 

795 

PUSH 

BC 

796 

LD 

G* A 

797 

CP 

"20 

798 

JP 

NC,SEPARA 

799 

CP 

*03 

800 

JR 

NZ,NÜCL3 

801 

RST 

"18 

802 

CALL 

"1CDE 

803 CLASSO 

CP 

A 

804 CLASS5 

POP 

BC 

805 

CALL 

ZpGHEEND 

806 

EX 

DE, HL 

807 

JP 

" 1C16 

808 NGCL3 

AND 

A 

809 

JR 

Z,CLASSO 

810 

CP 

"05 

811 

JR 

NZ,N0CL5 

812 

DEC 

B 

813 

JR 

CLASS5 

814 NGCL5 

CP 

A 02 



















definido se reduce su rango para 
poder entrar en ias tablas y se ini¬ 
cial iza HL al comienzo de la tabla 
correspondiente. A partir de este 
momento todos los comandos se 
tratan de la misma forma, aunque 
utilizando la tabla de la ROM o la 
nueva según corresponda. De esta 
tabla se extrae un dato que una vez 
sumado a la dirección en que se 
encuentra apunta a! comienzo de 


Al interpretar una línea coge 
un código de comando, si 
este es uno de los del 
Spectrum, mira a ver si ha 
sido redefmido. 


si es que los necesita, y por último 


ese comando. Estos parámetros in¬ 

la dirección en que se encuentra la 

cluyen la clase o clases a que perte- 

rutina de ese comando. 

nece 

el comando, los separadores. 

La clase de un comando indica 

B15 

JR 

NZ , NGCL2 

846 

LINEW 

CALL 

* 196E 

916 

POP 

BC 

847 


LD 

A, í *5C44) 

817 

CALL 

*1C56 

848 


JR 

l f LIUSE 




849 


AND 

A 

Bie 

CALL 

CHEEND 

850 


JR 

NZ,REPN 

819 

RET 


851 


LD 

B, A 

B20 

N0CL2 CP 

*07 

852 


LD 

A,(HL) 

821 

JP 

NZ«, * 1B63 

853 


AND 

*C0 




854 


LD 

A, B 

822 

BIT 

7, (IY+1> 

B55 


JR 

Z,LIUSE 

823 

RES 

0, (IY+2) 

a56 


RST 

8 

824 

CALL 

NZ, *0D4D 

857 


DEFB 

*FF 

825 

POP 

AF 

858 

REM 

POP 

BC 

826 

LD 

A f <~5C74) 

859 

LINEND 

CALL * 

*2530 

027 

SUB 

*13 

860 


RET 

Z 




861 


LD 

HL, C*5C55> 




862 


LD 

A, *C0 




863 


AND 

<HL) 




864 


RET 

NZ 



865 

866 LIUSE 

867 



XDR 

CP 

ADC 

lh 

INC 

LD 

LD 

INC 

LD 

INC 

LD 

EX 

ADD 


A 

*01 
A, *00 
(HL> 

HL 

E, (HL) 
<*5C45),DE 
HL 

E,(HL) 

HL 

D, (HL) 

DE, HL 
HL, DE 


828 


CALL 

*21FC 

878 


INC 

HL 

829 


CALL 

CHEEND 

979 

NEXTLI 

LD 

i *5C55),HL 

830 


JP 

*1CAD 

8B0 


EX 

DE, HL 

831 

STMRET 

CALL 

* 1F54 

081 


LD 

<*5CSD),HL 

832 


JP 

NC,*1B7B 

0B2 


LD 

D, A 

833 

- 

BIT 

7,(IY+10) 

883 


LD 

£, *00 

034 


JR 

NZ,STNEXT 

084 


LD 

(IY+10) ,*FI 

835 


LD 

HL,(*5C42) 

885 


DEC 

D 

Q36 


BIT 

7,H 

BS6 


LD 

(IY+13),D 

837 


JR 

Z,LINEW 

887 


JP 

Z T STLOQP 

838 

LIRUN 

LD* 

HL,*FFFE 

888 


INC 

D 

839 


LD 

<*5C45),HL 

889 


CALL 

EASTMT 

840 


LD 

HL, (*5C61) 

090 


JR 

Z,STNEXT 

041 


DEC 

HL 

091 

REPN 

RST 

8 

842 


LD 

DE,(*5C59> 

S92 


DEFB 

A I6 

843 


DEC 

DE 

093 

CHEEND 

CALL 

*2530 

844 


LD 

A,(*5C44) 

894 


RET 

NZ 

B45 


JR 

NÉXTLI 

095 


POP 

BC 


qué es lo que debe haber detrás del 
comando. Por ejemplo. CLS es un 
comando de clase O, lo que quiere 
decir que no debe haber nada más 
detrás de él. Si hubiera algo más se 
produciría un error de sintaxis 
(Nonsense in BASIC), Un coman¬ 
do puede utilizar varias clases. Por 
ejemplo, los parámetros corres¬ 
pondientes a FOR son: 04 3D 06 
CC 06 05 03 1D. 04 indica que es 
de clase 4, debe encontrar el nom¬ 
bre de una variable de una sola le¬ 
tra. 3 D es el código de *=\ carácter 
que debe estar detrás de la varia¬ 


896 


POP 

897 

STNEXT 

RST 

090 


CP 

899 


JR 

900 


CP 

901 

&STLO 

JP 

902 


LD 

903 


AND 

904 


JR 

905 


RST 

906 


DEFB 

907 

TABCRD 

DEFB 

908 


DEFB 

909 


DEFB 

910 


DEFB 

911 


DEFB 

912 


DEFB 

913 


DEFB 

914 


DEFB 

915 


DEFB 

916 


DEFB 

917 


DEFB 

918 


DEFB 

919 


DEFB 

920 


DEFB 

921 


DEFB 

922 


DEFB 

923 


DEFB 

924 


DEFB 

925 


DEFB 

926 

TABSIN 

DEFB 

927 


DEFB 

929 


DEFB 

929 


DEFB 

930 


DEFB 

931 


DEFB 

932 


DEFB 

933 


DEFB 

934 


DEFB 

935 


DEFB 

936 


DEFW 

937 


DEFB 

938 


DEFW 

939 


DEFB 

940 


DEFW 

941 


DEFB 

942 


DEFW 

943 


DEFB 

944 


DEFW 

945 


DEFB 

946 


DEFW 


se 

*18 

*OD 

Z,LINEND 
*3A 

Z.STLOQP 

A,C 

A 

Z,SSTLO 
8 

*OB 

*F7, *08: RUN 
*FB.*09;CLS 
*FD,*OA;£¡LEAR 
*EA\ *OB; REM 
*FA,*OC;IF 
*E6,*OD;NEW 
*EB,*OE;FOR 
*F5i*OF(PRINT 
“EE.*10s INF'UT 
*E9,*11; DIN 
*FO,*12;LIST 
*E3.*13;READ 
*E4,*14;DATA 
*FC,*15;DRAW 
*EO,*16;LPR1NT 
*E1,*17;LLIST 
*D8,*18;C1RCLE 
*CE,*19;DEFFN 
*00 

*61,*6D,*57 
*5A,*60,*62 
*64, *6A,*L2 
*14,*16,*18 
*1A,*1E,*20 
*27,*29,*2B 
*2D,*2F,*31 
*33,*36,*38 
*3A.*3D 
*03 
RUN 
* 00 . 

CLS 

*03 

CLEAR 

*OS 

REM 

*06,*CB,*05 
IF 
*00 
NEW 











Paseo de Gracia, 11 - Esc. 2 .° 4.a 


Tel. (93) 318 24 53 - 08007 Barcelona 



GESTION 


S.I.T.I. V.3* 4.000 

Aí comprar esta versión abonamos 3 000 -ptas por cuaF- 
quier versión anterior 

Context V.7 * 4.000 

Tratamienío de Textos. 

Funciona con cualquier impresora. 

Cassette y/o microdrive. 64 col. en pantalla e impresora. 

Context V + 8 * 4.000 

Nueva versión. Acentos graves y agudos, 

Copy en alta resolución. Versiones para Seikosha SP-8GQ, 
SP-1000 y Alternan F+ 

Adaptador SITI-CÜNTEXT 2.000 

Permite pasar información del SITI al CONTEXT 

M.D.S. -Sistema Operativo para 
Microdrive 7.000 

Conjunto de nuevos comandos BASIC que permiten Ac¬ 
ceso Aleatorio a Ficheros en Microdrive con un tiempo 
medio de acceso de 4 segundos. 

CONTABILIDAD Plftl* 3.000 

Plan contable. 200 cuentas. 2000 asientos, 

Hasta 9.000-000,000. Balance con activo-pasivo, cta. re¬ 
sultados. Utiliza el S.O.M.0,3. 

Cualquier impresora 80 col. 

Kit Utilidades Discovery 1 2.000 

1 Ü utiFidades CAI extendido ON ERROR. Set de caraca 
res del Amstrad. etc. 

"Disponibte en disco para Discovery 1 al precio de 
S.OOO'-ptaa. 


AJUSTE DE CABEZALES 
CASSETTE 

SINTETÍZADOR DE VOZ 
MULTI-COPYS (Copys desde 2 cm 
70 cm.) 

COPY GRISES (F+, SP-800, 
SP-1000, GP-550) 

COPY RS 232 

COPY SERIE RITEMAN F+ 


2.500 

3.000 

hasta 

3.000 



Fotografía digitalizada y pasada a impresora con el 
Copy de Grises, 



HARDWARE 


Digitaliza cualquier imagen impresa y la introduce en el or¬ 
denador donde se puede tratar, (Tramar, mezclar, silue- 
tear. ote,). Muy fácil de usar 

* OFERTA ESPECIAL p 
Impresora + Interface Centronics + 
Context V.8 + Copy Grises 72.000 


TIENDA AL PUBLICO EN BARCELONA 

PEDIDOS POR CORREO O TELEFONO 

Envíos contra reembolso a toda España 
200ptas. gastos de envío 
En tu domicilio en 3-4 dias 



Enviar a= PIN T R D de Gracia.11, Esc,C, 2*4* -08007 Barcelona 

Nombre_ 

Dirección ____ 

Población __ 

Pedido __ 


Discovery 1 + Kit utilidades 

55000 

■ 

Discos 3 V 2 " 

800 

■ 

Cable impresora Discovery 

3.500 

-— 

Interface monitor 

3.900 


Interface sonito TV 

3.500 


Interface Centronics 

8.000 

— 

Lápiz óptico + Sistema de dibujo 

4.850 

-- 

Teclado Saga 1 

11,000 


Impresora Riteman F + 


— 

(Centronics) * 

69.000 


Impresora S-P IODO 


■ 

(Centronics) 

74.900 

_ 

Monitor ClAEGI F. Verde 

24 000 

— 

Monitor CIAEGI F. Ambar 

24.750 

— 

NOVEDADES PIN 


“ 

Alimentación Ininterrumpida 

9,750 

— 

No se pierde le información por corte de luz 
Tensión , 1 30 h. de autonomía. 

o bajada de 

— 

Recarga automática. 


_ 

Digitalizador de Imágenes 



P-1024 

35,000 

— 



































947 

DEFB 

A 04 p *' = " 

948 

DEFB 

-CC,-06 

949 

DEFW 

FOR 

950 

DEFB 

-05 

951 

DEFW 

PR1NT 

952 

DEFB 

-05 

953 

DEFW 

INPUT 

954 

DEFB 

-05 

955 

DEFW 

DIM 

956 

DEFB 

-05 

957 

DEFW 

LIST 

958 

DEFB 

-05 

959 

DEFW 

READ 

960 

DEFB 

-05 

961 

DEFW 

DATA 

962 

DEFB 

-09,-05 

963 

DEFW 

DRAW 

964 

DEFB 

-05 

965 

DEFW 

LFRXNT 

966 

DEFB 

-05 

967 

DEFW 

LLIST 

968 

DEFB 

-09,-05 

969 

DEFW 

CIRCLE 

970 

DEFB 

-05 

971 

DEFW 

DEFFN 

972 

DEFB 

-08,-00 


En la tabla de comandos se 
indican los parámetros que 
deben ir detrás de cada 
instrucción , de este modo se 
puede comprobar si la 
sintaxis es correcta * 


IF 


ñ 


997 OLEAR1 

998 

999 
LQQO 
1001 
1002 

1003 

1004 

1005 

1006 
1007 
100B 

1009 

1010 
101 1 
1012 

1013 

1014 

1015 

1016 


BC 

DE, (-5C4BJ 
HL, (-5059) 
HL 

-19E5 

CLS 

-1EC6 

BC 

-2530 
. IF1 


IF1 

LÜELBE 

CBELSE 


PUSN 
LD 
LD 
DEC 
CALL 
CALL 
JP 
POP 
CALL 
JR Z s 
RBT -28 
DEFB -02,-38 
EX DÉ,HL 
CALL -34E9 
JP C f LÜEL9E 

CALL GETCH 
JP STMTL1 
LD “ 

LD C ? -01 
CALL 


a i m l i 
B, (IY+13) 
C ? -01 



a ir ' 

’ n 

1017 


CP 

-18 


T Si r 

V 

1018 


JR 

NZ,NELSE 


r . /■ ... «v. 

• Jfe 

á' / 

1019 


DEC 

C 




1020 


JR 

Z,CELSE 




1021 

NELSE 

CP 

-FA 




1022 


JR 

NZ,NÜIF 




1023 


INC 

C 



*J¡yh 

1024 

NOIF 

INC 

B 




1025 


CALL 

LÜNST 



^ ™ 4 

1026 


CALL 

-0074 




1027 


JR 

NC,CBELSE 

973 

DEFW 

AUTO 

1028 


JP 

LINEND 

974 

DEFB 

■*08, *03 

1029 

CELSE 

LD 

(IY+13Í,B 

975 

DEFW 

RENLtM 

1030 


CALL 

NEXTCH 

976 

DEFB 

*05 

1031 


JP 

STMTL1 

977 

DEFW 

ELSE 

1032 

LONST 

LD 

A,<HL) 

978 

ÜEFB 

*05 

1033 


CALL 

TESTC 

979 

DEFW 

ONAGO 

1034 


CALL 

— 1BB6 

980 

DEFB 

*05 

1035 


LD 

<-5C5D>,HL 

981 

DEFW 

SWAP 

1036 


CP 

-3A 

9B2 

DEFB 

*06,*00 

1037 


RET 

Z 

983 

DEFW 

MODE 

1038 


CP 

-CB 

984 

DEFB 

*05 

1039 


RET 

z 

995 

DEFW 

□NERR 

1040 


CP 

-OD 

986 

DEFB 

*00 

1041 


SCF 


987 

DEFW 

COMND 

1042 


RET 

2 

988 

RUN CALL 

*1E67 

1043 


INC 

HL 

989 

LD 

BC,*0000 

1044 


JR 

LONST 

990 

CALL 

*1E45 

1045 

TESTC 

CP 

-22 

991 

JR 

CLERUN 

1046 


RET 

NZ 

992 

CLEAR CALL 

* 1E99 

1047 

OTRC 

INC 

HL 

993 

CLERUN LD 

A,B 

1048 


LD 

A, í HL)* 

994 

□R 

C 

1049 


CP 

-22 

995 

JR 

NZ,CLEAR1 

1050 


RET 

Z 

996 

LD 

BC,<*5CB2> 

1051 


CP 

a 

O 

i 


1052 


JR 1 

NZ,OTRC 

1053 


FOP i 

AF 

1054 


SCF 


1055 


RET 


í 056 

FOR 

RST 

*18 

1057 


CP 

*CD 

1058 


JR 

NZ,FUSE1 

1059 


RST 

*20 

1060 


CALL 

*1C82 

1061 


CALL 

CHEEND 

1062 


JP 

* 1D16 

1063 

FUSE1 

CALL 

CHEEND 

1064 


JP 

* 1D13 

1065 

LPRINT 

LD 

A, *03 

1066 


JR 

F'R I NT 1 

1067 

PRINT 

LD 

A, *02 

1068 

PRINT1 

CALL 

*2530 .. 

1069 


CALL 

NZ,*1601 

1070 


CALL 

*0D4D 

1071 


CALL 

*1FDF 

1072 


CALL 

CHEEND 

1073 


RET 


1074 

INPUT 

CALL 

*2530 

1075 


JR 

Z,INRI 

1076 


LD 

A, *01 

1077 


CALL 

*1601 

1078 


CALL 

CLSLO 

1079 

INRI 

LD 

(IY*2),*01 

1080 


CALL 

INI T1 

1081 


CALL 

CHEEND 

1082 


LD 

BC,(*5C88) 

1083 


LD 

A, <*5C6B> 

1084 


CP 

B 

1085 


JR 

C. INF'2 

1086 


LD 

C, *21 

1087 


LD 

e, a 

1088 

INP2 

LD 

<*5C88>,BC 

1089 


LD 

A, *19 

1090 


SUB 

B 

1091 


LD 

(*5CBC>,A 

1092 


RES 

0,tIY+2) 

1093 


CALL 

*0DD9 

1094 


JP 

CLSLO 

1095 

INI Ti 

CALL 

*204E 

1096 


JR 

Z,INIT1 

1097 


CP 

*28 

1098 


JR 

NZ,INIT2 

1099 


RST 

*20 

1100 


CALL 

*1FDF 

1101 


RST 

*1B 

1102 


CP 

*29 

1 103 


JP 

NZ,*1C8A 

1104 


RST 

*20 

1105 


JP 

INNE2 

1106 

INIT2 

CP 

*CA 

1107 


JR 

NZ,INIT3 

UOQ 


RST 

*20 

1109 


CALL 

*1C1F 

1110 


SET 

7,(IY+55) 

lili 


BIT 

6,<IY+1) 

1112 


JP 

NZ,*1C8A 

1113 


JR 

INPROM 

1114 

ÍNIT3 

CALL 

*2C0D 

1115 


JP 

NC,INNE1 

1116 


CALL 

* 1C1F 











1117 

RES 

7, ÍIY^55) 

1118 INPRGM CALL 

- *2530 

1119 

JP 

Z,INNE2 

1120 

CALL 

. * 16BF 

1121 

LD 

HL,*5C7l 

1122 

RES 

ó P (HL) 

1123 

SET 

5,(HL) 

1124 

LD 

BC,*0001 

1125 

BIT 

7 , (HL) 

1126 

JR 

NZ P INPR2 

1127 

LD 

A,(IY+1) 

1128 

AND 

*40 

1129 

JR 

NZ , INPR1 

1130 

LD 

C * *03 

1131 INPR1 

OR 

(HL > 

1132 

LD 

(HL) i A 

1133 INPR2 

RST 

*30 

1134 

LD 

(HL). *0D 

1135 

LD 

A f C 

1136 

RRCA 


1137 

RRCA 


11313 

JR 

NC,INPR3 

1139 

LD 

A, *2? 

1140 

LD 

(DE), A 

1141 

DEC 

HL 

1142 

LD 

(HL) , A 

1143INPR3 

LD 

<*5C5B) , HL 

1144 

BIT 

7,UY+55) 

1145 

JR 

NZ,XNVAR3 

1146 

LD 

HL.(*5C5D) 

1147 

PUSH 

HL 

1148 

LD 

HL p < *5C3D) 

1149 

PUSH 

HL 

1150 INVAR1 

LD 

HL.INVAR1 

1151 

PUSH 

HL 

1152 

BIT 

4,(IY+48) 

1153 

JR 

Z,INVAR2 

1154 

LD 

(*5C3D),SP 

1155INVAR2 LD 

HL p Í*5C61) 

1156 

CALL 

*11A7 

1157 

LD 

íIY+0)**FF 

1158 

CALL 

EDITOR 

1159 

RES 

7, ílY+1) 

1160 

CALL 

*21B9 

1161 

JR 

INVAR4 

1162 INVAR3 CALL 

EDITOR 


Una vez acabada de analizar 
una sentencia se comprueba 
la teda BREAK y pasa a 
STÑEXT para analizar la 
siguiente. 



1163INVAR4 

LD 

(IY+34) ,*00 

1164 

CALL 

*21D6 

1165 

JR 

NZ,INVAR5 

1166 

CALL EDCÜPY 

1167 

LD 

BCp (*5C82) 

116Q 

CALL 

*0DD9 

1169INWR5 

LD 

HL,*5C71 

1170 

RES 

5 P (HL) 

1171 

BIT 

7,(HL) 

1172 

RES 

7.(HL) 

1173 

JR 

NZ,INVAR6 

1174 

POP 

HL 

1175 

POP 

HL 

1176 

LD 

(*5C3D),HL 

1177 

POP 

HL 

1178 

LD 

( *5C5F),HL 

1179 

SET 

7,(IY+l) 

1 1BO 

CALL 

*21B9 

nei 

LD 

HL,(*5C5F) 

1182 

LD 

CIY+3B), *00 

11B3 

LD 

(*5C5D>,HL 

1184 

JR 

INNE2 

1185INVAR6 

LD 

HL, Í*5C63) 

1186 

LD 

DE,{*5061) 

11B7 

SCF 


1 188 

SBC 

HL. DE 

1189 

LD 

B.H 

i 190 

LD 

C, L 

1191 

CALL 

*2AB2 

1 192 

CALL 

*2AFF 

1193 

JR 

INNE2 

1194INNE1 

CALL 

* 1FFC 


1195 

INNE2 

CALL 

*204E 

1196 


JP 

Z 9 INIT1 

1 197 


RET 


1198 

DIN 

CALL 

*28B2 

1199 


JP 

NZ,*1CBA 

1200 


CALL 

*2530 

1201 


JR 

NZ,DRUN 

1202 


RES 

6, C 

1203 


CALL 

*2996 

1204 


CALL 

CHEENfl 

1205 

DRUN 

JP 

*2C15 

1206 

LLIST 

LD 

A, *03 

1207 


JR 

LIST1 * 

1208 

LIST 

LD 

A, * 0 2 

1209 

LIST 1 

LD 

(IY+2) 

1210 


CALL 

*2530 

1211 


CALL 

NZ,*1601 

1212 


RST 

*18 

1213 


CALL 

*2070 

1214 


JR 

Cp LIST4 

1215 


RST 

*18 

1216 


CP 

*3B 

1217 


JR 

Z.LIBT2 

121B 


CP 

*2C 

1219 


JR 

NZ,LIST3 

1220 

LIST2 

RST 

*20 

1221 


CALL 

* 1C82 

1222 


JR 

LIST5 

1223 

LIST3 

CALL 

* 1CE6 

1224 


JR 

LIST5 

1225 

LIST 4 

CALL 

* 1CDE 

1226 

LIST5 

CALL 

CHEEND 

1227 


JP 

*1825 

1228 

DATA 

RST 

*18 

1229 


CALL 

*2530 

1230 


JP 

NZ,* 1E37 

1231 

DATA1 

CALL 

*24FB 

1232 


CP 

*2C 

1233 


CALL 

NZ,CHEENI 

1234 


RST 

*20 

1235 


JR 

DATA1 

1236 

DRAW 

RST 

*18 

1237 


CP 

*2C 

1238 


JR 

Z,DR3P 

1239 


CALL 

CHEEND 
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ble. Clase 06 indica una expresión 
numérica, CC es el código de TO\ 
otra vez clase 6, otra expresión. 
Por último clase 5, indica que el 
resto del análisis lo hace la rutina 
del comando, cuya dirección indi¬ 
can los dos últimos bytes. 

Los comandos que acaban en 
clase 5 son llamados tanto si está 


El juego de caracteres es el 
mismo que usa el Tasword y 
se puede sacar de este 
programa con un sencillo 
conjunto de instrucciones, lo 
que ahorra bastante trabajo. 


dos, uno a partir del programa 
Tasword Two y otro a partir de los 
listados del mes de septiembre. 

Si lo queréis sacar del Tasword 
debéis cargarlo y volver al BASIC. 
Hacer NEW, con lo que única¬ 
mente se borrará el programa BA¬ 
SIC. A continuación teclear el pro¬ 
grama siguiente: 


analizando como si está ejecutan¬ 
do una línea. Todos ellos en un 
momento dado llaman a CHECK- 
END, que sólo devuelve el control 
si está en ejecución. Si no continúa 



directamente en STMT-NEXT en 
la ROM. Por esta razón se ha re¬ 
producido estos comandos hasta el 
punto en que llaman a CHECK- 
END. 



por que alargarían demasiado el 
programa. Estos comandos son los 
correspondientes a las rutinas del 
cassette y el problema que presen¬ 
ta el no introducirlos no es muy 
grave, lo único que ocurre es que 
no se puede poner un comando 
nuevo detrás de una de estas ins¬ 
trucciones en la misma línea. El 
programa sería capaz de ejecutar¬ 
lo, pero no puede superar el análi¬ 
sis sintáctico, ya que intenta anali¬ 
zar un comando nuevo con las ru¬ 
tinas de la ROM. 

Una vez que ha acabado de ana¬ 
lizar/ejecutar la sentencia com¬ 
prueba la tecla BREAR en 
STMRET y pasa a STNEXT para 
analizar la siguiente sentencia o la 
siguiente línea. 

Los caracteres 


10 FOR ¡=32000 TO 32015:READ 
a:POKE i,a:NEXT i 
20 DATA 33,0,239,1,128,3,175, 
237,'l 11,35,11,120,177,32,247, 
201 . 

30 RANDOMIZE USR 32000: 
SAVE “chr”CODE 61184,896 

y grabar en una cinta el juego de 
caracteres. Por último carga el có¬ 
digo producido por el ensamblador 
y encima el juego de caracteres uti¬ 
lizando: LOAD “chr”CODE 
60358, y vuelve a grabar el progra¬ 
ma. 

Si lo quieres sacar del listado de 
DAT AS del mes de septiembre de¬ 
bes teclear las líneas comprendidas 
entre la 1060 y la 1340. Teclea 
también las líneas 10 a 110 cam¬ 
biando la 10 y la 30 por: 

10 CLEAR 60168:LET n=60351: 
RESTORE 

30 FOR i=1060TO 1340 STEP 10 

Ejecuta el programa y cuando 
acabe haz SAVE “chri’CODE 


Los comandos de clase 0B tie 


Para acabar resolvemos el pro- 60358,896. Carga el programa, en- 


nen el mismo problema, sin em- blema de introducir el juego de ca- cima el juego de caracteres y vuel- 

bargo no han sido reproducidos racteres. Vamos a dar dos méto- ve a grabarlo. 


1240 


JP 

*2477 

1263 


1241 

DR3P 

RST 

*20 

1264 


1242 


CALL 

*1C82 

1265 


1243 


CALL 

CHEEND 

1266 


1244 


JP 

*2394 



1245 

CIRCLE 

RST 

-18 

i -i O / 
1260 


1246 


CP 

-2C 

1269 


1247 


JP 

NZ,-1CBA 

1270 


1248 


RST 

-20 

1271 


1249 


CALL 

-1CB2 

1272 

DFN2 

1250 


CALL 

CHEEND 

1273 


1251 


JP 

-232D 

1274 


1252 

READ3 

RST 

-20 

1273 


1253 

READ 

CALL 

-ÍC^F 

1276 


1254 


CALL 

-2530 

1277 

DFN3 

1255 


JP 

NZ,-1DF5 

1278 

DFN4 

1256 


RST 

-IB 

1279 


1257 


CP 

-2C 

1280 


1258 


JR 

Z,READ3 

12B1 


1259 


CALL 

CHEEND 

1282 


1260 


RET 


1283 


1261 

DEFFN 

RST 

-IB 

1284 


1262 


CALL 

*2530 

1285 

DFN5 


JP 

NZ,*1F65 

1286 

LD 

BG P *0006 

Set 

6, (IY+U 

1207 

CALL 

*1655 

CALL 

-2C8D 

1208 

INC 

HL 

JR 

NC,DFN4 

1289 

INC 

HL 

RST 

*20 

1290 

LD 

í HL > f *0E 

CP 

-24 

1291 

CP 

*2C 

JR 

NZ.DFN2 

1292 

JR 

NZ,DFNó 

RES 

6, uv+n 

1293 

RST 

*20 

RST 

*20 

1294 

JR 

DFN3 

CP 

*28 

1295 DFN6 

CP 

*29 

JR 

NZ.DFN7 

1296 

JR 

NZ,DFN7 

RST 

*20 

1297 

RST 

*20 

CP 

*29 

1298 

CP 

*3D 

JR 

Z.DFN6 

1299 

JR 

NZ * DFN7 

CALL 

*2C8D 

1300 

RST 

*20 

JP 

NC,*1C8A 

1301 

LD 

A, <*5C3B) 

EX 

DE, HL 

1302 

PUSH 

AF 

RST 

*20 

1303 

CALL 

*24FB 

CP 

*24 

1304 

POP 

AF 

JR 

NZ,DFN5 

1305 

XQR 

C1Y+1) 

EX 

DE, HL 

1306 

AND 

*40 

RST 

*20 

1307 DFN7 

JP 

NZ,*1C8A 

EX 

DE«HL 

1308 

CALL 

CHEEND 
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DIBUJANDO CON RATON 


En et SIMO ha hecho su pre¬ 
sentación un nuevo programa 
para el QL que por sus caracte¬ 
rísticas va a hacer feliz a más de 
uno, ya que se trata de un evo¬ 
lucionado paquete para la reali¬ 
zación de dibujos. Se llama Star 
Mouse y ha sido desarrollado 
por la casa PURIGORP de 
Guadalajara, hecho bastante in¬ 
frecuente ya que la mayoría de 
los programas que se venden en 
nuestro país (y sobre todo si es¬ 
tán en lenguaje máquina como 
éste) provienen de Inglaterra. 

El paquete parte de una con¬ 
cepción distinta a la emplada 
hasta ahora, ya que emplea un 
dispositivo llamado «ratón» y 
es conocido desde hace mucho 
(fue inventado a principios de 
los 70 en los laboratorios de la 
Xerox en Palo Alto), no ha em¬ 
pezado a ser conocido masiva¬ 
mente hasta hace poco que al¬ 
gunos ordenadores personales 
lo han comenzado a usar. 


Con este dispositivo se aban¬ 
dona el habitual sistema de mo¬ 
vimiento a base de flechas de 
cursor y se sustituye por este 
dispositivo, que es mucho más 
intuitivo y más fácil de mane¬ 
jar. de modo que el tiempo em¬ 
pleado en la realización de los 
dibujos se acorta sensiblemente. 

Al cargar el programa la 
mayor parte de la pantalla que¬ 
da ocupada por el área de dibu¬ 
jo, blanca en un principio, a la 
izquierda de la cual aparece una 
serie de dibujos que representan 
los útiles que tenemos disponi¬ 
bles. Uno de ellos es una bro¬ 
cha, otro un cubo de pintura 
para rellenar áreas, otro realiza 
cuadrados, etcétera. También 
en este menú hay una serie de 
opciones adicionales, como un 
dibujo de una impresora que 
hace que lo que se muestra en 
pantalla salga impreso. 

Debajo de ese menú hay otro 


de menor tamaño en el que se 
elige el tamaño de la línea con 
que se dibuja y por último, ocu¬ 
pando toda la parte inferior de 
la pantalla, se encuentra otro 
menú con las tramas disponi¬ 
bles y que usará la brocha, ya 
que ésta no sólo dibuja en ne¬ 
gro, sino que puede hacerlo en 
diversos colores y tonos de gris. 

Todas estas elecciones que 
hemos mencionado se hacen 
moviendo el ratón por encima 
de la mesa, lo que produce un 
movimiento equivalente a una 
pequeña flecha por la pantalla. 
Para elegir algo basta colocar la 
flecha encima y pulsar el botón, 
ejecutándose la acción. El pro¬ 
ceso de dibujado se realiza con 
la misma sencillez y los efectos 
que se consiguen son realmente 
buenos, incluso para personas 
que no lo han manejado con an¬ 
terioridad. Las perspectivas que 
tiene son bastante buenas, y una 
prueba de ello es que la casa In- 
vestrónica lo apoya y hemos 
podido verlo en su stand en el 
SIMO. 
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"1 Nuestro simpático amigo 
Gusánez aparece en todas 
panes, incluso eti el pantalla de 
dibujo dd Star Mouse. 
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Navidad 


de 


Ahora que vienen las Navidades, todos queremos repartir 
entre los familiares y amigos participaciones de la lotería 
de Navidad. Con un QL, una impresora y este programa, 
tendrás la posibilidad de personalizar estas participaciones 
y demostrar a más de un escéptico la utilidad de estas 
máquinas. 


Generalidades 

El programa está hecho para ser 
usado con una impresora CPA 80. 
Para otras deberán ponerse los có¬ 
digos correspondientes en las si¬ 
guientes líneas: 

390: IMPRESION EXPANDIDA 
& LOTS & IMPRESION NOR¬ 
MAL 

1350: ESPACIADO ENTRE LI¬ 
NEAS A 1/8” 

Si no tienes la versión española 


del QL, debes eliminar la línea 
110. y respecto a las letras acen¬ 
tuadas. deberás elegir entre: 

a) no poner el acento. 

b) escribir la palabra hasta ia 
letra acentuada, añadir el código 
de la impresora correspondiente a 
BACKSPACE (vuelve un espacio 
hacia atrás) e imprimir el apóstro¬ 
fo. Por ejemplo: para imprimir la 
palabra 'número’, deberás escribir 


«nu» & chr$(8) & «mero». O algo 
más elegante: al principio del pro¬ 
grama poner B$=CHRS{8) & 
CHR$(96), y entonces escribes 
«nu» & bS & «mero». 


Procedimientos 
y funciones 

Una de las mejores cosas que tie¬ 
ne el QL es la definición de pala¬ 
bras para facilitar la programa¬ 
ción. Cuando el ordenador en¬ 
cuentra, al correr el programa, una 
de estas palabras, busca la defini¬ 
ción y ejecuta todas las instruccio¬ 
nes que se hallan entre las senten¬ 
cias DEFINE (la palabra) y END 
DEFINE. Ahora voy a comentar 


100 MODE i 

110 TRA 1: REMark (Quitar' esta linea si no es la versión espaiola) 

120 OREN H5, ser A 

130 DIH unid*í9,ó>, d i ec í $ í 1.0, 10) , decen$ i 9,9 ) # cent$t9 # 13) 

140 RESTORE : datos 
150 CLS: CSIZE 2, 1 

160 AT 3,0: INPUT "J Nñmero de lotería ? M !»ltí 

170 1 otf =" * I FGR n = 1 TG LENíltSU: lQtS“lQt* & lt£ín) 11 " 

180 AI 5,0: INPUT " 1 Pesetas 7 11 ! numS: IF numS^"" OR nurn* < " 1 " GR numS > "1000": 

CLS 3! GG TG 130 
190 CSIZE 0,0 
200 r)um=numí: traduce rsum 
210 coloca sal$ 

220 CLS 
230 avise 
240 imprime 

250 IF otro: GO TO 150 
260 CLS: STOP 
270 : 

280 : 

290 DATA "UNA " , 13 DIEZ", "CERO 11 , 11 CIENTO" , "DOS" , "ONCE", "VEINTE M , rJ DOSCIENTAS" 

300 DATA "TRES", "DOCE" t " TREINTA H , "TRESCIENTAS", "CUATRO" , "TRECE " , "CUARENTA" , "CUAT 
ROCIENTAS" 

310 DATA "CINCO" f "CATORCE","CINCUENTA", M QUINIENTAS", n SEIS","SUINCE*, * SESENTA" f "S 
ElSC íENTAS * 

320 DATA "SIETE","DIECISEIS" r "SETENTA", * SETECIENTAS","OCHO" P "DIECISIETE","OCJHENT 
A% "OCHOCIENTAS" 



APLICACION 








qué hacen los procedimientos y la 
única función definidos en este 
programa: 

— «datos» (Líneas 620-650): 
Carga los matrices unid$, dieciS, 
decenS y cent$ con sus respectivos 
valores. 

— «traduce» (670-1(370): Este 
procedimiento es el más interesan¬ 


te del programa. Convierte la can¬ 
tidad de pesetas que hemos intro¬ 
ducido en número a su correspon¬ 
diente literal, y lo asigna a la varia¬ 
ble SALÍ. 

— «imprime» (1090-1180): lee 
los DATA de las línes 340 a 590 y 
los envía a la impresora. En estas 
líneas está el recibo propiamente 


dicho, y naturalmente, si se cam¬ 
bian, cambiará también e! resulta¬ 
do. Así que ya sabes, si quieres ha¬ 
cer otro modelo diferente, sólo tie¬ 
nes que cambiar estos DATA. 

— «coloca» (1200-1270): de¬ 
vuelve la variable SAL$ más o me¬ 
nos centrada entre dos filas de '$’. 

— «avisa» (1290-1360): se ase- 


33ÍÍ 

340 

350 

360 

370 

330 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

560 

570 

580 

590 

¿00 

610 

620 

630 

¿40 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

* 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


J ‘NUEVE" > "DIECIOCHO” , "NOVENTA 11 , "NOVECI ENTAS" , "DIECINUEVE" 


L □ T E R I ■ A 


NACIONAL 


numero: 


*“ 

■ fe CHR*tl4>^ latí fe CHRS(20> fe * 




P * 

“* 

** 

■ ^ A A A 

H ^ A A A 

"* FELIZ NAVIDAD 
H * 

“# , 

"* SON: fe fe -# PTS.■ fe FILL*Í" “,4-LENlnum*)) fe * 

™* H fe FILL* í 11 - B ; 12+LEN (nuraí) ) fe FILL*í" ", 4-LEN í numí) ) fe M 

• M *" 


El portador de este 
recibo juega la cantidad de 
“ fe sal* fe " *" 

pesetas en el número arriba 
indicado para el sorteo que se 
celebrará en Madrid, el día 
21 de Diciembre de 1*985, 

El depositario, 


*" 

*“ 


DEFine PRÜCedure datos 

FOR n=I TO 9: READ unjdíín), dieciSíni, decenílnl ( cent*(nJ 
n=n + i: READ dieei*¡n> 

END DEFine 


DEFine PRQCedure traduce (ai 
REM-ark LOCal nu, nu 1, m ,mi 
r>ui=a: sal*- ■ " 

SELeet 0N a 
ÜN a=l 

sal*-" UNA h ; RETurn 
ON a-1000 

sa 1 *= * MIL “! RETurn 
END SELect 

m=lNT (nul/100): mi= nui- ( 100*m) 
SELect ON nu1 
ON nul=t00 
sal*=sal* fe " 

ON nul =0 TO 99 
GO TO 1000 
END SELect 
sal*=sal* fe " " 

SELect 0N mi 
ON mi-10 TO I9 
sal*=sal* fe " 

ON ml-0 
sal«-sal* fe " 

ON mi 3 0 TO 9 
sal$=salf fe " 


CIEN RETurn 

* 

fe cent*(m) 

" fe dieei*íml-9) fe * 
■í RETurn 

* fe un id*<mi) fe w ■* 


RETurn 


RETurn 


1 


QL4 







r 


l_J M. EJEMPLO OE LO QUE HACE 




gura de que la impresora esté co¬ 
nectada cuando la envía lo códigos 
del espaciado {línea 1350). 

— «otros» (1380-1500): esta 
función devuelve ‘T si queremos 
hacer otra participación o *0" si no 
queremos, 

Javier Ortega 


«■«■**** * *#*#* ************ * * ***** * * ***** * * ** 


* 

* 

* 

* 

* 

a A A 

* ******* 

* 

* *-***-* 

f ** AA **** A 

**A 

* *********** 

* *** 

* *** 

* *** 

* 

* FELIZ NAVIDAD 

* 

* 

* SON: #100* PTS. 


LOTERIA 


NACIONAL 


NUMERO: 00000 


El portador de este 
recibo juega la. cantidad de 
C 1 EN ************ 
pesetas en el número arriba 
indicado para el sorteo que se 
celebrará en Madrid, el día 
21 de Diciembre de 1*985* 


El depositario. 


J 


910 END SEL*ct 

920 nu=INT (mi/101: ml»mi-í10*nuí 
930 IF NOT mi 

940 sal*=sal* fe “ " fe decen*lnu) fe " "; RETurn 
950 END IF 


960 IF nu-2 

970 sal*-sal* fe " VEINTI" fe unid*(ml) fe " *: ^RETurfl 
980 END IF 

990 sal*=salí fe " " fe decenfctnuJ fe " Y * fe unidí(ml) fe 
1000 SELect ON nul 
1010 ON nuÍM0 TO 19 

1020 sal*=sal* fe p ■ fe dieci *{nul-9) fe - RETurn 
1030 0N nu1=0 T0 9 

1040 sal*=sal* fe- ■ * fe unid*(nul> fe " ■; RETurn 
1050 END SELect 
1060 60 TO 920 
1070 END DEFine 
1080 : 

1090 DEFine PROCedure imprime 
1100 LOCal a* 

1110 RESTORE 340 
1120 REPeat impre 
1130 IF EOF: EXIT impre 
1140 READ a* 

1150 PRINT# 5! a* 

1160 END REPeat impre 
1170 FQR n=1 TO 6: PRINT #5 
1180 END DEFine 
1190 ; 


1200 DEFine PROCedure coloca (a*) 


RETurn 


1210 LOCal al* p a2*,lon.mit 

1220 lon=LENísal*i: m it*lNTUon/21 

1230 al*-sal*ci TO mil); IF LEN(aÍ*l<l6: al*=FILL* t **% i é-LEN l al*H fe al* 

1240 a2*~sa 1*(mi t +1 TO lan) *. IF LENta2*XX5: a2*=a2* fe FILL*( "*- p 15-LEN (a2*) 1 
1250 a*=ai* fe a2* 

1260 RETurn a* 


1270 END DEFine 
1280 : 

1290 DEFine PROCedure avisa 

1300 CLS 

1310 CS1ZE 1,1 

1320 AT 4,18: PRINT 'Prepara la impresora"\T0 17* *y pulsa Cualquier tecla" 
1330 CSIZE 0,0 
1340 PAUSE 

1350 CLS: PRINT #5, CHR*(27 ) i"0"S REMark espaciado a 1/8"l.,..-. 

1360 RETurn 
1370 : 

1380 DEFine FuNction otro 

1390 LOCal a 

1400 CLS 

1410 CSIZE 2,I 

1420 AT 4,7: PRINT “3 Mis recibos 7 ÍS/NJ" 

1430 CSIZE 0,0 
1440 REPeat laxo 
1450 g*=INKEY* 

1460 IF 9 *^- 5 ' OR g** w S"; a=l: EXIT laxo 

1470 IF; g*="n N OR 9 *=*N W : a=0: EXIT laxo 

1480 END REPeat laxo 

1490 RETurn a 

1500 END DEFine 

1510 : 



i 


********************** 




















ARCHIVO DE ARCHIVES 


GRAFICOS EN 


Como muchos conoceréis, el 
Archive del QL es un potente 
programa que nos permite, me¬ 
diante comandos, tener acceso 
fácil y rápido a una base de da¬ 
tos. Pero tiene el inconveniente 
de tener que teclear todo el co¬ 
mando, produciendo errores al 
no escribirlo correctamente y, 
además, los usuarios están acos¬ 
tumbrados al sistema de Menú 
para acceder a los datos sin te¬ 
ner que recordar que hay que 
abrir los Ficheros. 

Con el siguiente programa se 
pueden realizar las operaciones 
clásicas de altas, bajas, modifi¬ 


caciones, consultas o listados 
fácilmente. 

Para ello se carga el programa 
Archive y mediante edit se te¬ 
clea el listado que ofrecemos a 
continuación. Al ejecutarlo, 
pregunta por el fichero a ins¬ 
peccionar. Tecleando “?” y 
ENTER le dará un catálogo de 
los ficheros existentes. 

Después se plantea un menú 
de funciones, pudiéndose acce¬ 
der a! resto de las funciones de 
Archive pulsando la tecla “C”. 
Para entrar de nuevo en el pro¬ 
grama se teclea “Maestro”. 

Vicente Galán 


proc confirmar 

escribir en 15, 12 i “CCrt# * tsYnt?' 1 ; 

yws^mayusítecla t J 
escribir rfptr " ,80* 
f inprcc 
proc fin 

escribir en 15, Ü; "ABAfckDGNAfi ?"$ 
confirmar 
SI ye* 
i i'Tip i ar 
cerrar 

escribir "ADIOS" 

•tOp 
sino 
cerrar 
star t 
i i nsi 

*inprac 
proc maestros 
hsz 

escribir en ÍZ ,0?"P=Fnmero: U*U1timo: S=Siguíente: ft*flnterior íCGNSULTAS PANT 
ALCAí* 

escribir "I = lnsertar: H^Andi#i car: L=Listados impresora: F-Fin: C^Coma 

ndo. " 

o*cribir rbpt 1" %Bú) 
nuentram i *•-, >“C" 
ptbcr tbir 

ha? ií=mayüs(tec1 a<)) 
si primero : finsi 

si LÍ=“U"í último : fin-si 
si 1 í =S " : prúMimo : f i os i 
si l#=”A"s anterior ; finsi 
ibiartáf v f i os i 

si escribir *n 15, V; “BAJ A" s : conf i r-mar i «i yes: borrar i finsi : fin* 

i 

si 1 escribir en 15,0|“MODIFICAR ? J1 CONFIRMAR: si yes: al terar : fins 

i : finsi 

■ 1 t +acrAfiir «n 15,0;. " IMPRESORA" ; j conf i rmar : si ym volcar i fin*i : 

f i nsí 

si I “F H : escribir en 15,0; J, F IN" i l conf i mir: si yes; volcar i finsi í finttl 

f1nmientras 
local ti 

*iccri)ic *n 13,0; ’Xegtr, reset T buscar, hallar, continuar, escribir cuenta (J , 
esc r i b i r riemor laO , i mpr i mi r , “ 

escribir "ordenar, crear, situar, exportar, actualizar, has, si, todos. Otro* 
procedí mientoS“ 

escribir en 1S*0| rept ( l! , SO) ; "Pul se una tecla para contiftu*f # 
haz tf^ttcla(5 

escribir en 15,0; "'Acuérdese de volver al procedimiento Con maestro'. 1 " 
finproc 
proc start 
limpiar 
has r*» w ? H 

escribir tab l5f "PROCEDIMIENTO MAESTRO; 0 Vicente Calan barcia" 
mientra* rlP il ?" 

leer en 14,15; "Nombre del fichero"^ ?=católoga "jrf 

s i rí“"?“t dir "mdw2_“i finsi 
* 1 nmientras 
abrir ri 
indicar 
maestros 

finproc 


Indudablemente el QL es una 
máquina excepcional en mu¬ 
chos aspectos, sobre todo te¬ 
niendo en cuenta su precio, ya 
que muchas de sus característi¬ 
cas sólo se encuentran en má¬ 
quinas que cuestan mucho más. 
Por desgracia muchas de estas 
características son desconocidas 
para la mayoría de la gente que 
desaprovecha el gran potencial 
que ofrece la máquina. 

Un ejemplo de éstos son los 
gráficos. Actualmente muy po¬ 
cos programas saben sacar par¬ 
tido a esta característica, pero 
esto se puede paliar construyén¬ 
donos nuestros propios progra¬ 
mas. En este artículo vamos a 
mostrar algunos de los posibles 
manejos que se pueden hacer 
desde BASIC y esperamos que 
usted se anime y haga más prue¬ 
bas que nos muestren su imagi¬ 
nación 

Empezando 

Todos los programas que da¬ 
mos en este artículo se realizan 
con el modo normal de pantalla 
según se pone al encenderla, no 
obstante, si la ha modificado 
deberá restituirla a su estado 
normal mediante los siguientes 
comandos: 

FILL 0:OVER LMODE 8: 
SC A LE 100,0,0 

En este modo la pantalla del 
QL se encuentra dividida en pe¬ 
queñas casillas formando un 
cuadriculado de 101 casillas 
vertical mente y 166 horizontal¬ 
mente. Estas están numeradas 
de 0 a 100 y de 0 a 165, respec¬ 
tivamente, estando situados los 
orígenes de ambas en la parte 
interior izquierda. Cada uno de 
estos puntos puede ser direccio- 
nado indicando sus dos coorde¬ 
nadas. de modo que (45,89) in¬ 
dica el punto situado en la co¬ 
lumna 45 y en la línea 89. Una 
vez establecido esto podemos 


OL6 ■ 










EL SUPERBASIC 


aprender la primera instrucción 
gráfica, POINT X.Y. Donde X 
e Y son las coordenadas hori¬ 
zontal y vertical de un punto tal 
como indicamos antes. Lo que 
hace esta instrucción es poner 
la posición indicada del color 
que tuviésemos fijado previa¬ 
mente con INK. El programa de 
la figura uno utiliza esta ins¬ 
trucción para generar un anillo 
multicolor en la pantalla. En el 
listado se ve que existe una va¬ 
riable llamadas DIST que es la 
que mide la distancia al centro, 
de modo que no se dibuje fuera 
de los bordes fijados. Dado que 
este programa realiza un bucle 
infinito, se tiene que parar por 
medio de las teclas CTRL y es¬ 
pacio a la vez. 

Otra instrucción de gran uti¬ 
lidad es LINE A.B TO C.D. 
Donde A.B y C.D son dos pares 
de puntos. Lo que hace el orde¬ 
nador al recibir esta instruc¬ 
ción, como se habrá imaginado 
ya. es trazar una línea entre am¬ 
bos puntos con el color fijado 
previamente. Aunque es una 


100 PAPER OiCLS 
I 10 REPfiiat loop 
120 M -RnO t20 * B0> l y=RND í 20 , BO> 

130 di st=íx“'50) * + íy-50 J * í y-50) 

140 IF dímt<9O0 ANO q¡i*t>350 THEN 

15-0 I m, dist/100-2 

160 POINT n f y 

170 END IF 

ISO END REPeat Iodo. 


instrucción muy sencilla, con 
ella se pueden conseguir efectos 
espectaculares, como el que da 
el listado de la figura 2, en la 
que se han unido los puntos de 
dos líneas perpendiculares con¬ 
siguiendo un efecto parecido a 
una red. 

Otro ejemplo del uso de estas 
instrucción se da en el listado de 
la figura 3, que realiza una figu¬ 
ra conocida como cardioide si el 
número que se le da es 2. para 
otros valores superiores genera 
otras curvas también de gran 
belleza y conocidas genérica¬ 
mente con el nombre de epici¬ 
cloides. 


Curvas 

Hasta ahora todas las líneas 
que hemos usado eran rectas, 
pero nuestra habilidad puede 
aumentar considerablemente si 
usamos curvas. La más sencilla 
de estas formas geométricas es 
el círculo, y existe una instruc¬ 
ción especial que nos permite 
trazarlo. Esta instrucción es 
CIRCLE X.Y.R. Donde X e Y 
constituyen las coordenadas del 
punto del centro (según el for¬ 


3.00 FDR L-0 TQ 100 STEP 5 
110 LIME TO 0,100-1 

120 MEKT l 


ÍOQ PAPER 1!INk 7;CLS 
lio INPUtriO* "mui 1 1 pl ü a usar 11 i k 
120 FOR angle=0 TD 360 STEP 3 
130 a=RAD(*nql*> 

140 n 1=00+50+EOS Caí 
150 yl-50+5O*SINÍa) 

160 w2-SO+5G#COS 
170 y2-S0+50*SJN<L+a> 

IBO LINE TO w£,y2 

190 END FOR anqle 


100 PAPER 1!INK 7 iCLS 
110 FÜPi TO 360 STEP 10 

120 

130 k=*BÚ+ 5Q+CÜS ít) 

140 y=5Ü+20*SINÍt> 

ISO r«20-y^e 

160 tCDStt* 

170 ECLIPSE Kl 0 

IBO END FOR a 


70 víbjd-50 

SO x=SO 

90 ladó=l 

100 CLS 

110 radio-50 

120 RÉPeat dibujo 

130 IF lado=l THEN x=x-viejo+radiOílada^O: ELSE x-K+vieja-radlo:laao^i 

140 CIRCLE )í 1 50,radio 

150 viejo^rádio 

160 radiO*radi g-RND < 1 TG 4í 

170 IF radios6 THEN EX IT dibujo 

ISO END REPeat dibujo 


mato indicado anteriormente) y 
R es el radio. Como en ocasio¬ 
nes anteriores, podemos generar 
una figura exclusivamente a 
basé de círculos pero que sin 
embargo posea gran belleza. El 
listado de un ejemplo de esto se 
da en el listado 4. que realiza 
una'serie de círculos concéntri¬ 
cos con un radio que decrece 
aleatoriamente. 

Otra instrucción existente en 
el QL y que no es normal en 
otros ordenadores es la ELLIP- 
SE X.Y.R.EX.ANG. Todos 
aquellos que posean fundamen¬ 
tos de matemáticas gráficas sa¬ 
brán que el círculo es en reali¬ 
dad un caso particular de la 
elipse, o dicho de otro modo, 
que una elipse es un circulo «de 
goma» que se estira por uno de 
sus lados. Para hacer esto en 
nuestro ordenador debemos fi¬ 
jar algunos parámetros. Los tres 
primeros ya los conocemos ya 
que son los mismos que en el 
círculo, y los dos últimos son 
los que fijan la excentricidad 
(achatamiemo si se prefiere). 
Esto se fija en realidad con el. 
primero, que cuando vale 1 
hace un círculo y si es menor 
hace que esté estirado hacia 
arriba y si es mayor que 1, hace 
que estirado hacia los lados. El 
último parámetro, que hemos 
denominado ángulo, hace que 
la elipse gire en la pantalla con 
el ángulo indicado (en radia¬ 
nes). de modo que (para los que 
est^n interesados en el efecto 
matemático) resulta lo mismo 
un factor de excentricidad de 
0,5 y un ángulo de O que un 
factor de 2 y un ángulo de pi/4 
radianes. 

En el listado 5 se muestra un 
ejemplo de aplicación de este 
comando para dibujar secciones 
de un toro (un donuts para los 
amigos). 

Con estas instrucciones ya se 
pueden realizar auténticas ma¬ 
ravillas gráficas, aunque nos fal¬ 
tan algunos comandos más que 
se explicarán con más profundi¬ 
dad en el próximo mes. 



APLICACION 



QL 7 

























Este interesante programa que nos ha enviado Angel Soria 
constituirá una verdadera delicia para todos aquéllos que 
disfruten haciendo simulaciones de batallas en casa. 

El programa es fundamentalmente estratégico y por tanto no 
tiene una estructura de matar marcianos sino un 
planteamiento más «serio», ya que cada jugador (dos como 
mínimo} debe distribuir sus ejércitos entre todos sus países 
y atacar en función del equilibrio de fuerzas existentes. Este 
planteamiento es similar al juego del tablero de Risk que 
muchos conocerán y las reglas son similares, aunque las 
repetimos más adelante para aquéllos que 


las desconozcan. 







































L a estructura interna es algo 
complicada, ya que hay 
cuatro programas distintos. 
M 1 El primero (listado 1) se en¬ 
carga de cargaí la pantalla 
de presentación y el programa 
principal (listado 3), éste a su vez, 
antes de ponerse en marcha carga 
un pequeño bloque de tipo CODE 
en el que hallan diversos datos, in¬ 
cluyendo los UDG, el mapa de 
pantalla y la calavera que aparece 
al final del juego. 

Este bloque lo crea el listado 4 y 
la pantalla de presentación con el 
listado 2. Por tanto, para hacer una 
cinta que funcione, hay que grabar 
primero el programa í con SAVE 
«nombre» LINE I, a continuación 
se graba la pantalla de presenta¬ 
ción al ejecutar el programa 2. des¬ 
pués se escribe el tercer listado, 
también con SAVE «nombre» 
LINE 1 y por ultimo el resultado 
del programa cuatro. Un consejo 
importante: guarde en cinta aparte 
todos los programas antes de eje¬ 
cutarlos. Un código máquina equi¬ 
vocado puede destruir el progra¬ 
ma. 

Si se desea suprimir la pantalla 
de presentación y el cargador ini¬ 
cial, hay que introducir la línea 

4 RANDOM1ZE: CLEAR 52299 

en el programa principal. 

Si al ejecutar el programa cuatro 
da error en las sentencias DATA. 







indicará la línea donde está éste, 
por lo que basta con revisarla. Si el 
error fuese que e! mapa no aparece 
bien definido, habría que revisar 
de la 10 a la 250, estas mismas se¬ 
rían las responsables de que los 
continentes no se rellenen correc¬ 
tamente. 

£1 programa principal 

La estructura del programa prin¬ 
cipal es compleja debido a su lon¬ 
gitud y a que era necesario para 
dotarlo de mayor rapidez. No obs¬ 
tante los bloques principales son 
los que siguen, indicados por lí¬ 
neas: 

1-25 Carga de bytes y prepara 
algunas matrices. 

100- Subrutinas. 

110- Borra parte inf. pantalla. 

120- borra desde la linea 5. 

130- espera la pulsación de una 
tecla. 


140-: Dibuja pantalla. 

150 y 170-: Músicas. 

180-: Búsqueda de propiedades 
de evaluación del objetivo. 

190-: Busca si hay más de un te¬ 
rritorio con 1 ejército, con el fin de 
conceder uno si no lo hay. 

500-: Efectos para cuando se 
consigue el objetivo. 

1000-: Subrutina para la coloca¬ 
ción de ejércitos. 

1500-: Efectos para cuando un 
jugador pierde sus territorios. 

2000-: Programa principal, con 
el menú principal. 

2035-: Salto a las opciones. 

2040-2185-: Se comprueba si un 
jugador ha conseguido su objetivo. 
Sólo se comprueba el del jugador 
de turno. 

2200-2210-: Siguiente jugador y 
salto a menú. 

2290: Submenú. 

2500: Rutina de atacar. 


PROGRAMA 1 


* " 



60 PRINT INK 7; FLASH OsAT 14 

tat 


, 0; " * * * WAR GANE # 

-á¡# 


# " 

70 LNK 5: FÜR n = l5 TO 21: PRiN 
T AT n,0; FLASH 0,,: NEXT n 



80 PLOI 180,10: DRAW 20,28: DR 

10 CLEAR 52299 


AW -10,-32: DRAW -10,14,1: DRAW 

20 BEEP .1,30: INK O: BORDER O 


40, 0 

: PAPER O: CLS 


85 PLOT 206,24: DRAW 5,ó,3: DR 

30 PRINT AT 10,8; PAPER 5: INK 


AW 0,6,-4: PLOT 201,24: PLOT 216 

1; "THE LAST BATTLE*'; FLASH 1; AT 


,24 

12,10; "is loading." 


90 PRINT FLASH 0;AT 17,23; IN 

40 LOAD “"SCREENÍ 


K 2;";AT 20,25;"1985" 

50 PRINT AT 20,0; 


95 PRINT AT 18,8; INK 4;"LÜADI 

60 LOAD "" 




,/3 

PROGRAMA 2 





—3 

- Su 

Tin - 

. x ut . 





-—«i .iirfn Y li_.L~s 


10 BRIGHT 1: BORDER 0: PAPER 0 


NG” 

: INK 0: FLASH 1: CLS 


100 DATA 0,1,1,1,0,1,0,1,0,1,1, 

20 FOfi m=5 TQ 12: FOR n=0 TO 3 


1,0,0,0,0,1,0,0,0,1,1,1,0,1,1,1, 

1s READ a 


O,1,1, 1,0 

30 PRINT PAPER ó* (a>l>; INK 2 


105 DATA 0,0,1,0,0,1,0,1,0,1,0, 

* í (a=l > OR ía=3) >; AT m,ns“N" 


0,0,0,0,0,1,0,0,0,1,0,1,0,1,0,0, 

40 NEXT n: NEXT m 


0,0,1,0,0 

50 PRINT INK 7: FLASH 0;AT 3, 


110 DATA 0,0,1,0,0,1,1,1,0,1,1, 

O;* 1 * * * WAR SAME * * 


0,0,0,0,0,1,0,0,0,1,1,1,0,1,1,1, 




















3500-2550: Pide los datos. 
2555-2707: Efectúa el combate. 
2710-2800: Mov. Tropas. 

3000: Rutina de información. 
3500: Rutina de ver el objetivo. 
4000: Efectos para fin desde 
menú. 

8500: Subrutina de control del 
mapa. 

9000: Instrucciones y toma de 
datos, asi como inicialización. 
9500: Datas para las matrices. 

Variables: 
nj = n.° jugadores, 
tj = tipo juego 1 = C. mundo. 
aS (nj. 8) - Nombres de los juga¬ 
dores. 

j = jugador de turno. 


o() = objetivo. 

E() = todo sobre los territorios. 
z() = empleada en el control del 
mapa. (POKES). 
p$() = nombre países, 
pa y pd = país ataca/de ftende. 
r = refuerzo. {Ejércitos de reser¬ 
va). 

d()= puntos dados. 
m() = medallas. 

j() =jugador que ha perdido todo. 

Código máquina: 

En él están el mapa, la calavera 
y los gráficos (UDG). además de 
esta rutina: 

LDDE.4000h (16384) 
LDHL.E458h (58456) 
LDBCJSOOh (6885) 


LDIR 

RET 

Los valores de DE y HL se cam¬ 
bian para la calavera (también 
BC). 

Instrucciones de uso 

El juego es para varias personas 
(de 2 a 4) no pudiéndose jugar con¬ 
tra el ordenador. 

Existen dos modalidades de jue¬ 
go. en la primera se lucha para 
conseguir el objetivo específico y 
la segunda es para conquistar el 
mundo. Avisamos que en este se¬ 
gundo caso la partida puede durar 
varios días, ya que en el primero 
dura varias horas. 


PROGRAMA 2 


0,0,1,0,0 

115 DATA 0,0,1,0,0,1,2,3,0,1,2 
2,2,0,2,2,3,0,2,2,3,0,3,O,O,O,3 
2 , 1. 0,0 

1 DATA 0,0,1,0,0,1,2,1,2,1,3 
2,O,O,2,1,i,1,2,1,O,3,O,1,1,3 
0,1, O, o 

DATA <3, O, o, u, O, 0,2, 2, O, O, 2 
2, O, O, 2,0,0 , O, 2,0,0, 2, O, O, O, 2 
O. 0, O 

1 DATA O,O,O,O,0,0,2,0,2,0,2 
2 , 0 , O, 2 , O, O, 0 , 2 , 0 , 0 , 2 , O, O, O, 2 
0,0,O,O 

135 DAVA o,O,O,0,0,0,2,2,O,O,2 
2,0,0, 2, O, O, O, 2, O, 0,2,2,2,0, 2 
2,o,0,O 

140 SAVE *' TLBsp " SCRLENS 


o 


o 



R n=1 TO 40: READ a: LET z(n)=a: 
NEXT n 

20 RESTORE 9530: DIM p*C40,13> 
: FOR n=1 TO 40: READ aí: LET p$ 
(n)=a$+ M , NEXT n 

25 GD TO 9000 

100 REM H H N Subrrutinas ffi111 
105 REM 

110 FOR a=18 TO 21: PRINT AT a, 
^ . >• •> 
¡NEXT a: RETURN 
120 FOR m=5 TO 20: BEEP 
PRINT AT m,0,,: NEXT ffl: RETURN 
130 PRINT AT 21,7; INK 2; FLASH 
1;">"; FLASH O; INK 1;"Pulsa un 
a tecla. 1 2 3 4 5 ': PAUSE 0: RETURN 
140 CLS : PRINT INK 1sAT 1 , 65 " 
* THE LA5T BATTLE PAPER 0;AT 



1 REM 

2 REM NI N! II A.S, 1985 ||j H ü 

3 REM 

4 RANDOMIZE 

5 PRINT AT 20,0;: LOAD 11 "CODE 

lO PRINT AT 18,4; INK 4; PAPER 
O; FLASH l;”STOP THE TAPE": FOR 
n=l TO 10: BEEP .01,25: BEEP .O 
1,20: NEXT n 

15 DIM 2(40): RESTORE 9550: FO 


3,0, , 

145 PRINT AT 0,0: "r ; AT 0,31;‘‘~1 
" ; AT 2 , 0 ;*V;AT 2, 31; " ; AT 4,0; 

r-jAT 4,31; " ^" 5 AT 21, O; V";AT2 
1,31;" : RETURN 

150 RESTORE 160: FOR m=l TO 19: 
READ a: BEEP .15,a: NEXT m 
155 FOR m =1 TO 2: RESTORE 165: 
FOR n = 1 TO 16: READ a: BEEF^ .14, 
a: NEXT n: NEXT m: RETURN 
160 DATA 2,4,5,2,5,5,4,2,4,-3 ,4 
,>-i, 7,4, 7, 7,5,4,2,5,4,2 
165 DATA 9,14,12,14,12,10,10,9, 
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* ALSISTOCKS 

* ALSlMAIL 

* CAMBlALSI 

* ALSiCDNT 

* COMERCIAL 6 

* ALSIFIN 

* ALSIFINCAS 

Oferta: Sinclair 


: Acceso directo (2 segundos. 1.800 artículos por fichero y cartucho, 14 400 en 
disco BOO K. 

10 ficheros con impresión de recibos mensuales, maiüng, acceso directo. 800 
fichas por fichero y cartucho. 

: Impresión de letras de cambio y recibos negociables 
B.000 asientos en cartucho microdrtve 64 000 en disco BOO K, 1.3 segundos por 
asiento, balances y extractos inmediatos, 2 niveles, subcuentas en todas Jas 
cuentas, cantidad de cuentas ilimitada, etc 
: Facturación, almacén, ficheros, pedidos, presupuestos, estadísticas, relaciones, 
mailing, albaranes. etc. 

: Todo upo de cálculos financieros 
: Administración de fincas 

_ ÜL -i- impresora + monitor + ud. discos + lote programas 242.750 Pías. 

Oferta: Sinclair OL + impresora + lote programas 149.750 Ptas._ 


ALSI 


comercial, S, A. Antonio López. 1t7. 2. D -28026 MADRID -Tell 475 43 39 


ORDENADORES 

• QL - AMSTRAD - SPECTRUM 

PROGRAMAS 

• Contabilidad QL . 20.000 ptas. 

• Nóminas QL . 25.000 ptas. 



Vvorld-y\A icro 

Avda dei Mecwerreneo, 7 

Teis 251 lí OO y 2Si iS 09 ■ MADREO 7 



CAMAFEO .nc. 


CASSETTES 
DE CALIDAD PROBADA 
PARA ORDENADORES 


Cao* uno 


Caja de 10 Caía dg 3C 


C-5 190 Otas 1 393. pías 3 5S2 ptas 

10 209 peas. 1 4é3 pías 3 76? ptt* 

C-t5 219 pías i 533 pías 3 942 pies 

C-ao 229 píos 1 602 pías 4.122 pías 


Libre de gastos de envío contra reembolso correos 

CAMAFEO me Dtp. 03 

José Lázaro Galdiano, 1. 28036 Madrid,_ 


B ELECTRONICA 

^SANDOVALsa 

DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELL-AIM-65 
DRAGON-32 
NEW BRAIN 
DRAGO N-64 
CASIO FP-200 

ELECTRONICA SANDOVAL, S. A. 

C/ SANDOVAL, 3, 4. 6 28010-MADRID 
Teléfonos: 445 75 58 - 445 76 00 - 445 18 70 
447 42 01 

C/ SANDOVAL, 4 y 6 
Centralita 445 Ifi 33 (8 lineas) 


PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 



A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 




& o 




Aproveche ia oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta funda, y beneficíese 
de un 30% de descuento 
sobre su precio normal. 
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Una vez puesto en marcha el 
programa se nos pide el número de 
jugadores y a continuación el 
modo de juego, siendo «c» la con¬ 
quista del mundo y «o» la de un 
objetivo específico. 

A continuación se introducen 
los nombres de los jugadores (hasta 
8 caracteres) y luego empieza el 
juego, eligiendo el ordenador alea¬ 
toriamente quien empieza prime¬ 
ro. 

Si se ha elegido la conquista de 
un objetivo se pide entonces que se 
introduzca la clave secreta que nos 
permitirá ver cuál es nuestro blan¬ 
co. Esta clave, evidentemente, es 
distinta para cada jugador y tiene 


7,2,10,7,9,5,4,-2,5,4,2 


550 CLS : LET qq=USR 58444 

170 RESTORE 175: FGR TO 12: 


555 PAUSE n*. 7 

READ a: BEEP .15,a: NEXT m: RET 


560 NEXT n 

URN 


565 POKE 5B448.88: POKE 58449,2 

175 DATA 7,7,12,12,11,11,5,5,9, 


28: POKE 58452,27 

9,7,7 


570 FOR n=l TO 156 

180 FOR n=a TO c: IF t(n.l)=j2 


575 PRINT AT 21,0; PAPER 6; INK 

THEN LET b=b+l 


2; (" 

185 NEXT n: RETURN 


LA ULTIMA BATALLA HA TENIDO 

190 LET r1=0: FOR m-1 TO 40: IF 


LUGAR "+a$(j2)+" ha con 

t ím,1 ) =j1 THEN IF t(m,2í>l THE 


seguido su objetivo. L 

N RETURN 


A GUERRA HA DESTRUIDO EL MUNDO 

195 NEXT m: LET r 1=1: RETURN 


R.I.P. 

500 REM M1 i Final MR 


") ín TO 31+n) 

505 REM 


580 BEEP .05,30: NEXT n 

510 PAPER 0: INK 7: CLB 


590 BEEP 2,-10 

515 LET oo=USR 58444: BEEP .5,3 


600 FGR m=14 TO 10 STEP -1: FOR 

V 1 m 

520 PRINT INK 0; PAPER 7;AT 19 


* 



• tm J*** 
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n=.l TO .002 STEP -.01: BEEP n, 
m: BEEP n,m-5: NEXT n: NEXT m 

,6; “# THE LAST BATTLE *" 


610 PAUSE 5: BEEP 1,-10: PAUSE 

525 POKE 58448,7ó: POKE 58449,2 


50: GO TO 9000 

04: POKE 58452,24 


1000 REM N ¡1 R Poner Ejere. 1 II Üt 

530 FOR m=l TO 2: FOR n=0 TO 7 


1005 REM 

STEP .5: BEEP .05,-10: BEEP .05, 


1020 LET oo=USR 58444: 60 SUB 85 

-5: BORDER n: NEXT n: NEXT m 


00 

535 BORDER 0 


1025 IF t(t,l)Ojl THEN BEEP .1 

540 FDR n=i TO 20 STEP 2: INK I 


,0: PRINT AT 21,7; INK 2; FLASH 

NT (n/2.6) 


ls"No te pertenece.”: PAUSE 50: 

545 BEEP .04,10 

— 


GO SUB 110: GO SUB 8550: GO TO 1 




















CONCURSO MATEMATICO 


El número 

más largo 


Este impresionante listada de 
doce paginases el mayor 
numero primo conocido. El 
ordenador (un potente IBM 
AT) tardó seis horas y media 
en generarlo usando un 
programa compilado. 


D ado que el mes de di¬ 
ciembre ofrece gran¬ 
des ratos de descanso 
a la mayoría de nuestros lec¬ 
tores, la redacción de la re¬ 
vista ha decidido proporcio¬ 
nar a todos nuestros lectores 
una oportunidad de aprove¬ 
char esas horas a la vez que 
mejoran sus dotes programa- 
doras por medio de este con¬ 
curso. 

El objetivo a conseguir es 
descomponer un número no 
primo en sus divisores, cosa 
no muy difícil normalmente, 
pero en este caso algo más 
complicada, ya que el núme¬ 
ro en cuestión tiene 29 cifras 
y, por tanto, no se puede cal¬ 
cular normalmente recu¬ 
rriendo a trucos como los 
que aparecen en el artículo 
de infinita precisión que apa¬ 
rece en este mismo número. 

Esperamos que os animéis 
a participar y nos demostréis 
vuestro alto nivel. 

Bases del 
concurso 

1, Los concursantes de¬ 
berán descomponer el núme¬ 


ro 234791596001573561756 
29850677 en sus factores pri¬ 
mos (que no sean a su vez di¬ 
visibles por ningún otro), in¬ 
dicando cuántas veces apare¬ 
ce cada uno. Este cálculo 
puede realizarse en una orde¬ 
nador Sinclair (ZX80, ZX81, 
ZX Spectrum, ZX Spectrum+, 
ZX Spectrum 128 o QL). 

2. Todos los participan¬ 
tes deberán enviara! concur¬ 
so; dichos factores primos 
junto con la cantidad de ve¬ 
ces que aparecen. El progra¬ 
ma empleado (indicando el 
lenguaje e incluyendo una 
cinta o microdrivre con el 
listado) y el tiempo aproxi¬ 
mado que lardó en resolver 
el problema. Si este tiempo 
fuese pequeño (lo dudamos) 
deberán indicarse también 
los segundos, en el caso nor¬ 
mal basta con decir las horas 
y los minutos aproximados, 
Éstos tiempos y el buen fun¬ 
cionamiento del programa 
estarán sujetos a comproba¬ 
ción, 

3. Podrán participar to¬ 
dos los lectores de la revísta 
que no trabajen en la redac¬ 
ción de la misma. 



4, El jurado estará com¬ 
puesto por la redacción de 
Todospectrum. 

5. A la hora de puntuar 
se tendrá en cuenta: la rapi¬ 
dez (considerando el lenguaje 
empleado), el buen diseño 
del programa y. naturalmen¬ 
te, que los resultados sean 
correctos. 

ó. La fecha tope de admi¬ 
sión de programas es el día 
15 de enero. La relación de 
premiados aparecerá en el 
número de febrero. 

7, Cada concursante po¬ 
drá participar cuantas veces 
quiera, pero en cada una de 
ellas debe hacerlo con un 


programa distinto (aunque es 
conveniente que los resulta¬ 
dos coincidan), 

8, Al ganador se le entre¬ 
gará un lápiz digitalizador de 
la marca PIN SOFT, una co¬ 
lección de Anaya Multime¬ 
dia y una colección de juegos 
ABC Soft. 

Entre los demás partici¬ 
pantes se sortearán otros 
nuevo lápices digital i/adores 
de PIN SOFT. 

Recuerda: Hay que hallar 
todos los divisores (con el 
número de veces que aparece 
cada uno) del húmero: 

234791596001573561756 

29850677. 






que tener un máximo de tres ca¬ 
racteres. 

Después de esto el ordenador in¬ 
forma del número de territorios de 
cada jugador y del número de ejér¬ 
citos disponibles (3.5 por el núme¬ 
ro de territorios) y después de dar¬ 
nos información acerca de las te¬ 
clas de manejo empieza el juego. 

Colocación de ejércitos 

Lo primero que hay que hacer es 
repartir los ejércitos que el ordena¬ 
dor ha dejado sin colocar, para ello 
hay que mover el cursor con Z y X 
y colocarlo encima del país donde 
queramos quitar o poner, cuando 
estemos en él pulsamos el espacio 

PROGRAMÁT - 

025 

1030 60 SUB 140 
1035 PRINT AT 8,7;"Turno de ";aí 
tj1);AT 6,2;COLOCACION DE EJE 
RCITQS —";AT 10,5;"Territori o: M 
;p$ < t >;AT 11,5;"Hay: t <t, 2); " 

ejercí tos." 

1040 PRINT AT 16,6; INK 2;“1"; I 
NK 1;".— Poner ejercítos.AT 17 
,6; INK 2;"2"; INK 1;".- Quitar 
ejércitos.";AT 18,6; INK 2;"3"; 
INK 1;Salir." 

1042 PRINT AT 20,4;" 11 ; INK 

2; FLASH 1;”>"; INK 1; FLASH O;" 
Pulsa opcion,",: PAUSE O: LET 
= INKEY$: BEEP .05.20: IF ií*<"l" 
OR THEN BEEP .1,0; GO TO 

1040 


puede haber ningún territorio sin 
ejércitos. Tampoco se pueden de¬ 
jar ejércitos en reserva, por lo que 
no se saldrá de esta opción hasta 
no colocarlos todos. 

2, Quitar ejércitos. Funciona 
de un modo similar a la anterior 
pero preguntando los ejércitos que' 
se quitan y que van a la reserva. 

3. Esta opción nos devuelve al 
menú principal. 

Aunque de una sola operación 
se pueden quitar o poner un máxi¬ 
mo de nueve ejércitos de cada vez, 
esta operación se puede repetir y 
meter más ejércitos, no existiendo 
límite al número de ejércitos que 
puede tener un país. 


,0: GO TO 1055 

1057 IF x$="2" THEN IF (VAL zt> 
=t(t,2)) OR z*="0" THEN PRINT A 
T 20,4;" No puedes hacer eso.",: 

PAUSE 50: GD TO 1040 
1060 IF >!$="2" THEN LET t(t,2) = 
t(t,2)—VAL z$: LET r=r+VAL z*; B 
EEP .1,20: PRINT AT ll,10;t(t,2) 
;" ejércitos. ";AT 16,6;"Tienes 
";r;" ejércitos.": PAUSE 80: GO 
TO 1080 

1062 IF 1" THEN IF r-VAL z$ 

<0 THEN PRINT AT 20,4;" No pued 
es hacer eso.*',: PAUSE 50: GO TO 
1040 

1065 LET b=0: FOR m=i TO 40: IF 
t(m,1> =j1 THEN IF t(m,2)=0 THEN 
LEJ b=b + l: IF t=m THEN IF z*< 



y aparece un menú con tres opcio¬ 
nes: 

1. Poner ejércitos. Nos pide 
cuántos ponemos (de O a 9). Si se 
colocan todos los que quedan en 
reserva pueden pasar dos cosas, si 
todo se ha correctamente se sale de 
esta parte de programa, pero si hay 
algún territorio sin ejércitos nos 
anulará el movimiento, ya que no 



1043 IF :<$=”3" THEN GO TO 1000 
1045 LET y$="quitas": IF x$='T' 
THEN LET yi="pones": GO TD 1050 
1050 PRINT AT 16,0,,,,,,: IF k*= 
”l n THEN PRINT AT 16,6;"Tienes 
(STR* r+" ")( TO 2);" ejercito 
s. ” 

.1055 PRINT AT 20,4;"Cuantos " ; y$ 
;" (O_9)? ";t PAUSE O: LET z$= 

B U INKEYU: BEEP .05,20: PRINT zí: I 
3 F z$<"O" OR zt>"9" THEN BEEP .1 


>"0" THEN LET b=b-l 
1070 NEXT m: IF b<>0 AND r-VAL z 
$<b THEN BEEP .1,0: PRINT AT 19 
,1;"Los necesitas para ocupar lo 
s territorios desocupados,", A 
T 21,5; PAPER 5; "Moví mi ento anuí 
ado.": PAUSE 1O0: GO TO 1000 
1075 BEEP .05.10: LET t<t,2)=t(t 
,2)+VAL z$: LET r=r-VAL z*: PRIN 
T AT 11,10;t<t,2);" ejércitos. 

";AT 16,13;(STR$ r+" ">( TO 2): 


















SERVICIO DE EJEMPLARES ATRASADOS 


Complete su colección de 

Mospectrun 

A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


ÜM^spectrun 



Núm, 1 *250 pts, 

Cómo usar el microdrive/Progra- 
mación Basic/Ampiíación Basic a re/ 
Rutina despertador/Variables dei si$- 
íema/Entrada datos mediante masca- 
ras/Protección del software/Sintonh 
ce su Spectrum/Programas. 


Núm, 3*250 pts. 

Novedades sonimag 84/Ampliandü el 
Basíc/Programas para ordenar pro- 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en microdrive/ 
Programación de un interface de im¬ 
preso ra/Prog ramas. 


Núm. 5 *250 pts. 

Floppys para Spectrum/Diseño asis¬ 
tido por ordenador/64 Caracteres por 
línea/Juego de la vida/Pascaí/Asi ha¬ 
cemos las portadas/Controi de eva- 
luacíones/Programas. 


Núm. 2*250 pts. 

Gráficos profesipnales/Desplaza- 
miento pixei a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa¬ 
ra microdrive/Rutina reset en código 
máquina/Análisis del editor de textos 
Tasword/lnterfaces para impresoras/ 
Programas. 


NÚm, 4*250 pts. 

De profesión: programador/Consola 
para el Spectrum/Comparación códi¬ 
go máquina-Basic/Análisis programa 
contabilidad /Calendario/Pascal/Pro¬ 
gramas. 


Núm. 6*250 pts. 

Representación de funciones/Todos 
ios caminos conducen a la ROM/Jue- 
gos/Pascai/ConstrucciÓn de un lápiz 
óptlco/Programas de gestión. El SíTI/ 
Logo: tortugas para iodos/lnterrup- 
Ciones del Z-00/Programas 


lbdfspectrun Hódpspectrun 



____ ' 
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Códtoo máciuina 
par;i ampliar el BASIC 

V030 Tf rtKWir 


üüüpjfiiuiil irii-in 
defunciones 


Bcwdo dtittK im mictrntrivu 

Pragíwwre Bfro^ier bíí BASIC 


DISPONEMOS DE TAPAS ESPECIALES PARA 

SUS EJEMPLARES DE 

ÜMlospectnin 




SIN NECESIDAD DE ENCUADERNACION 


PRtC'O 




fcOOp^ 


Para hacer su pedido, rellene este cupón HOY MISMO 
_ _ á y envíelo a; 

KKtftSPMtrtni Bravo durillo, 377 

r 


Tel. 733 96 62 - 28020 MADRID 


(cada tapa es para 6 ejemplares) 


Ruego me envíen los siguientes ejemplares atrasados de TODOS- 
FECTRUM . .......al precio de 250 pts 

Por favor envíenme . tapas para la encuadernación de mis 

ejemplares de TODÜSPECTRUM. al precio de 600 pts. más gastos de envío. 
El Importe 3o abonaré 
□ POR CHEQUE □ CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO D AMERICAN EXPRESS □ VISA □ INTERBANK 

Número de mi tarjeta: J 

Fecha de caducidad .. Firma 


I 


NOMBRE .. 
DIRECCION 
CIUDAD .... 
PROVINCIA 


C P 
































Cuando todos los jugadores fina¬ 
lizan de colocar sus ejércitos se 
pasa al juego propiamente dicho. 

Menú principal 

Este también ofrece varias op¬ 
ciones que detallamos a continua¬ 
ción. 

1. Atacar. Esta opción nos 
muestra el mapa del mundo y se 
nos pide que elijamos el país que 
ataca {que debe ser nuestro) y el 
que defiende (que debe ser del con¬ 
trario), entre ambos debe haber 
frontera, es decir, deben estar el 
uno ai lado del otro. Una vez elegi¬ 
dos ambos se les pide al atacante 
que diga con cuántos ejércitos ata¬ 



ca {hasta un máximo de tres) y lue¬ 
go al defensor de le pregunta lo 
mismo. 

El número de ejércitos con los 
que se ataca o defiende es el núme¬ 
ro de dados que tira ese jugador (en 
realidad lo hace el ordenador) y 
sólo se considera el dado más alto. 
La puntuación más alta de los dos 


indica el que gana y en caso de em¬ 
pate gana el defensor. 

Por ejemplo el atacante va con 
tres ejércitos, y saca 1 3 3 y si el de¬ 
fensor tiene dos ejércitos y saca 2 y 
4, gana el defensor por tener un 
cuatro mientras que el atacante ha 
obtenido solamente un tres como 
máximo. 

El jugador que pierda se quedará 
sin los ejércitos con los que ataca o 
defiende. Si un jugador pierde to¬ 
dos los ejércitos de un territorio, 
éste pasa a poder del contrincante. 

Medallas: 

1. Si gana el atacante, aparece¬ 
rán las medallas que posee y se le 
concede una (no aparece en la lis- 


PAUSE SO 

1080 1F r=Q THEN RETURN 
1090 GO TO 1000 

1500 REM H B i Fin de jugador U U K 
1505 REM 

1510 F'OKE 58448,76: PÜKE 58449,2 
04: FOKE 58452,24 
1515 BEEP 1.5,-40 

1520 PAPER O: INK 7: CLS : LET o 
o=USR 58444 

1525 FOR -F = l TO 84: PAUSE 3: PRI 
NT PAPER 6; INK 2; BRIGHT í;AT 
21 , 0 ; <*' 

Para el jugador "+a$(m)+" 
ha sido su ultima batalla. 

R.I.P. 

") (-f TO f+31) : BEEP .01,35: NEX 
T f » 

1530 POKE 58448,88: POKE 58449,2 
28: POKE 58452,27 

1540 FOR f=1 TO 8: FOR 2=40 TO 1 
O STEP -2: BEEP .01,z¡ NEXT z: N 
EXT f 

1545 INK Oí PAPER 7: RETURN 
2000 REM Di Ü ti F’. Principal Mili 
2005 REM 

2010 BEEP .1,40: BEEP .01,30: GO 
SUB 140 

2020 PRINT AT 6,7;"Turno de ";ai 
(j);AT 9,8; INK 3;"MENU”;AT 11,9 
; INK 2;“ 1" j INK 1-Atacar . ” ’ T 
ÁB 9; INK 2;"2"; INK 1;“.-Inform 
ación."'TAB 9; INK 2;"3"; INK 1: 
".-Ver el Objetivo."’TAB 9; INK 
2;"4"; INK 1;".—Fin del Juego." 
2025 PRINT AT 20,1;”Introduzca o 
peion."; FLASH 1;“?": PAUSE O: L 


ET x*=INKEY*: BEEP .1,30 

2030 IF xí<"1“ OR x*>'‘4" THEN B 

EEP .1,0: GO TO 2025 

2035 GO TG 2000+500*VAL x* 

2040 GO SUB 140: IF tj=l THEN G 
O TO 2150 

2045 LET j2=j: LET b=0: GO TD 20 
25+ ío (j ) * 15 AND o( j )<S) + ( 125 AND 
o í j)>=8) + <15 AND o(j)=l) 

2055 LET a=l: LET c=40: GO SUB 1 
80 



2060 IF b>=72/nj THEN GO TO 500 
2065 GO TO 2150 

2070 LET a=iO: LET c=13: GQ SUB 

180: LET a-26: LET c=35: GO SUB 

180 

2075 IF b=l4 THEN GO TO 500 
2080 GO TO 2150 

2085 LET a=1: LET c=9: GO SUB 18 
O: LET a=l4: LET c=l9: GO SUB 18 
O 

2090 IF b=15 THEN GO TO 500 
2095 GO TO 2150 

2100 LET a=10: LET c=13: GO SUB 

ISO: LET a=2G: LET c- 25: GO SUB 

180: LET a=36: LET c=40: GO SUB 

180 

2105 IF b=15 THEN GO TO 500 
2110 GO TO 2150 

2115 LET a=l: LET e=9: GO SUB IB 
O: LET a=l4: LET e=l9: GO SUB IB 












PROGRAMA 3 


Os LET a-36: LET c=40: GO SUB 16 

O 

2120 IF b=20 THEN 6Ü TD 500 
2125 GO TO 2150 

2130 LET a=20: LET c=35: GO SUB 
ISO 

2135 1F b = 16 THEN GO TO 500 
2150 LET a=1: LET c=40: FOR m=l 
TO nj: LET j2=m: LET b=0: GO SUB 
130 

2155 1F bOQ THEN GO TO 2170 
2160 IF o í j > =m+7 THEN LET j2=z: 
GO TO 500 

2165 IF jímJOl THEN LET jím)=l 
: GO SUB 1500 
2170 NEXT m 

2175 IF t j=2 THEN GO TO 2200 
2180 LET b=0: FOR n=l TO nj: IF 
j(n)=0 THEN LET b=b+l: LET ¿2=n 
2195 NEXT n: IF b=l THEN GO TO 
500 

2200 LET j=j+1; IF j>nj THEN LE 
T j = l 

2205 IF j(j>=í THEN GO TO 2200 
2210 BEEP .1,40: BEEF’ .01,30: GO 
TO 2020 

2290 REM gil Sub Menú. 1 'ñ I 

2295 REM 

2400 GG SUB 140 

2405 FRINT AT 6,7;"Turno de “;a$ 
(j);AT 9,8; INK 3;"MENU”;AT 11,9 
; INK INK 1;". -Sal ir." J TA 

B 9; INK 2; '‘2"; INK 1; “.-Medalla 
s." ’TAB 9; INK 2;"3 H ; INK 1;". -M 
dv. Tropas. " 


2410 PR1NT AT 20,1: ”Introduzca o 
pelón."; FLASH 1;"?": PAUSE O: L 
ET :<$=1NKEY4: BEEP .1,30 
2415 IF k*="1" THEN GO TO 2040 
2420 IF ;í$=” 2” THEN LET ma=3: G 
O SUB 140: GO TO 2715 
2425 IF x$="3" THEN 60 SUB 110: 
GO TO 2805 

2430 BEEP .1,0: GO TO 2410 
2500 REM | | ¡8 Atacar M i 1 
2505 REM 

2510 LET oo=USR 58444: FOR m=i T 
□ 2 

2515 IF rti=i THEN PRINT AT 20,1; 
11 >Atacante" ; FLASH 1; INK l;"?": 
GO TO 2525 

2520 PRINT AT 20, 1; "De-F ensor 
FLASH 1; INK l;"?" 

2523 IF m=2 THEN POKE b,(PEEK b 
>-128 

2525 60 SUB 8500+55*ím=2): BEEP 
.1,30: PRINT AT 20,1;" 

Bl 

2530 IF (t(t,l)Oj AND m=l> OR í 
t(t,l)=j AND m=2> THEN BEEP .1, 
O: PRINT AT 21,9; INK 2; FLASH 1 
;"Na se puede.": PAUSE 50: GO TO 
2510 

2535 IF m=l THEN LET pa=t: 60 T 
O 2545 

2540 LET pd=t: FOR d=3 TO 6: IF 
t(pa,d)< >t THEN NEXT d: PRINT 
FLASH 1; INK 2;AT 21,7;"No hay 4 
rontera.": PAUSE 50: GO TO 2510 
2545 BEEP .1,40: NEXT m 
















ta) y a veces un ejército. A la dere¬ 
cha de la tabla de medallas está la 
cotización en ejércitos de cada 
una. ya que se pueden canjear por 
éstos. El ordenador pregunta a 
continuación si se cambia, si se 
responde que sí, nos dará a elegir 
entre cinco opciones. 

Si no se realiza el cambio se 
vuelve al movimiento de tropas y 
después al submenú. 

2. Si gana el defensor, apare¬ 
cen las medallas que éste posee, se 
le concede otra y un ejército, no 
habiendo en este caso opción para 
cambio de medallas ni de tropas. 

El submenú tiene tres opciones 
distintas: la primera nos devuelve 
al menú principal, la segunda nos 
permite cambiar medallas por 


ejércitos y la tercera realiza los 
movimientos de tropas. A este 
menú se va independientemente 
de que se hayan realizado conquis¬ 
tas. 

La segunda opción dei menú 
principal nos da información de 
los ejércitos que posee cada juga¬ 
dor y de los territorios. 

La tercera nos muestra el objeti¬ 
vo que tenemos que conquistar, 
previa introducción de la clave se¬ 
creta. 

La última opción del menú 
principal termina el juego. 

Resumen de los 
objetivos del juego 

El juego, continúa hasta que un 
jugador conquista el territorio in¬ 


dicado, apareciendo entonces un 
dibujo y un mensaje. Si un jugador 
pierde todos sus territorios, queda 
eliminado, siendo esto indicado 
por el ordenador. 

Si un jugador conquista un terri¬ 
torio y no posee ejércitos para ocu¬ 
parlo, el ordenador le dará uno au¬ 
tomáticamente. 

El movimiento del cursor por el 
mapa va de continente en conti¬ 
nente no siendo exactamente de 
derecha a izquierda o viceversa. 
Por ejemplo, si sale por Oceanía, 
se va a América. 

Con esto quedan explicadas to¬ 
das las instrucciones del juego, 
ahora sólo queda teclear y saber es¬ 
trategia. 
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Mospectnm 
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TODOSPECTRUM es una publi¬ 
cación mensual que le ayudará a 
obtener el máximo partido a su 

SPECTRUM y al ZX 81. 


CONOZCA LAS VENTAJAS DE SUSCRIBIRSE A 

Mospectnm 
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ADEMAS, le hacemos un 25 % DE DESCUENTO 


sobre el precio real de suscripción (12 números) 


VALOR REAL DE 
SUSCRIPCION 

rs^eatPTAs. 


OFERTA ESPECIAL 
DE SUSCRIPCION 

2.700 PTAS. 


USTED AHORRA 

900 PTAS. 


APROVECHE AHORA esta oportunidad irrepetible para suscribirse a TO¬ 
DOSPECTRUM. Envié HOY MISMO la tarjeta adjunta a la revista, que no 
necesita sobre ni franqueo. Deposítela en el buzón más cercano, Inmediata¬ 
mente recibirá su primer ejemplar de TODOSPECTRUM más el REGALO. 


Mospectnm 

— 


Bravo Wurillo, 377 
Tel. 733 79 69 
28020 MADRID 




















PROGRAMA 3 



2550 GO SUB 140 

2555 PRINT AT 0,2;">Ataca ";a*<j 
) 7 TAB 4; INK 1; "Desde M ;pí(pa> ! 'T 
AB 13;t<pa,2);" ejércitos." 

2560 PRINT AT 11,2;">De+i ende 
a$(típd,1))’TAB 4; INK l;"Desde 
";p$(pd>'TAB 13;t(pd,2);“ ejercí 
tos. " 

2565 FOR n=l TO 2¡ PRINT AT 20,3 
;"Con cuantos ej. 

2570 IF n=l TREN PRINT "atacas 
"; FLASH 1;"?": GO TO 2580 
2575 PRINT "de-f iendes FLASH 1 

. ityu 

2580 LET a=típd*(n=2)+pa*ín=l) , 2 
): PAUSE O: LET x$=INKEY$: BEEP 
.01,30: IF k$<’T" OR xí>"3“ THEN 
BEEP .1,0: GO TO 2580 
2583 IF VAL x*>a THEN BEEP .1,0 
: GO TO 2580 

25S5 IF n = l THEN LET ea=VAL :<*: 
PRINT INK 1;AT 3,4;"Con M ;ea;” 
de": 60 TO 2595 

2590 LET ed=VAL x*: PRINT AT 13, 


4; INK l;"Con ";ed;" de" 

2595 NEXT n: PRINT AT 20,0,, 

2600 FOR n=40 TO 176 STEP 136: F 
OR m=0 TO 32 STEP 16: BEEP .005, 
m: PLOT n+m,40: DRAW 7,0: DRAW 1 
,-l¡ DRAW 0,-7: DRAW -1,-1: DRAW 
-7,0: DRAW -1,1: DRAW 0,7: NEXT 
m: NEXT n 

2605 FOR n=2 TO 19 STEP 17: FOR 
m=ló TO (ea AND n=2)+íed AND n=l 
9) +15 

2610 PRINT AT m,n; INVERSE 1; IN 
K 2;CHR$ (143+(t(pa,1) AND n=2) + 
ít ípd,1) AND n = 19)) 

2615 BEEP .01,10: NEXT m: NEXT n 
2620 DIM d(2): FOR b=*5 TO 22 STE 
P 17: LET 5=0: LET c=ea*<b=5>+ed 
*<b=22): FOR n=l TO c: FOR m=l T 
O 20: LET a=INT <RND*Ó>+1 
2625 BRIGHT 1: IF c=3 THEN PRIN 
T AT 17,b;CHR* £147+a) 

2630 IF c>=2 AND n<3 THEN PRINT 
AT 17,b+2;CHR$ (147+aí 
2635 IF n=l THEN PRINT AT 17.b+ 
4;CHR4 (147+a) 

2640 BEEP .01,-10: NEXT m: BEEP 











.02,25: BEEP .02,35: BEEP .02,30 
2645 IF a>s THEN LET s=a 
2650 NEXT n: PAUSE 10: BEEP .1,3 
O 

2655 LET d ( í b< >5) +1 > =s: NEXT b: 
BRIGHT O 

2660 IF d(l)<=d(2) THEN LET típ 
a,2> =t(pa,2)-ea: PRINT AT 20,3;" 
El atacante pierde "jea;" ej.“: 
GO TO 2670 

2665 LET t<pd,2>=típd,2)-ed: PR1 
NT AT 20,3;"EÍ defensor pierde " 

■ . » e j . " 

2670 PAUSE 30: LET n=I9-17#ídÍ2) 
>=d(1)): FOR m=16 TO ea*íd<2)>-d 
(1)>+ed*(d(2)<d<1)> + 15 
2675 PRINT OVER 1; INK 6;AT m,n 
BEEP .05,-10: PRINT OVER 
1; INK 2; AT BEEP .05,-1 

2 

2680 FRINT INK 0;AT m, n? " íí" S BE 
EP .05,-11: PRINT AT m,n;" “: BE 
EP .05,-12 
2685 NÉXT m 

2690 IF t ípd, 2)00 AND tipa, 2)0 
i O THEN LET jl=jí PAUSE 50: GO T 
O 2400 

' 2695 PAUSE 30: PRINT PAPER 5;AT 
21,4;"Territorio conquistado" 
2700 IF t(pd,2> =0 THEN LET jl=j 
: LET t ípd,l)=j1: LET ma=l: GO T 
O 2707 

2705 LET ma=0: LET jl=t(pd,l>: L 

ET tipa,l>=jl 

2707 GO SUB 170: PAUSE 50 

2710 GO SUB 140 

2715 PRINT INK 3;AT 5,4;"- COND 
ECORACIONES -"; INK G;AT 7,4;"Co 
ronel: 11 ; a$ ( j 1) 

2717 PRINT AT 9,5;r;" ejércitos. 

II 

2720 FOR n=l TO 3: FOR m=l TQ mí 
j1,n): BEEP .Gl,n+m+10: PRINT AT 
9+n*2,m+8; INK n+l;CHR$ (158+n) 

;AT 10+n*2,m+8;CHRí (161+n): NEX 
T m: NEXT n 

2723 IF ma=3 THEN GO TO 2740 
2725 LET a=INT (RND*3)+1: LET mí 
jl,a)=m(jl,aí+l 
2727 GO SUB 190 

2730 PRINT AT 19,5;"Se le conced 
e una INK a+l;CHR$ (158+a);AT 
20,23;CHR$ Í161+a> 


2732 IF jlOj THEN LET rl = l 

2735 IF RND>.7 OR rl“l THEN PRI 
NT AT 20,6;"Y un ejercito.": LET 

r=l 

2736 IF ma=0 THEN GO TO 2810 

2737 BEEP .1,20 

2740 PRINT AT 7,22;"CAMBIO:";AT 
9,22; INK 2; AT 10,22; 

; INK O; "-5'' 

2745 PRINT INK 3;AT 11,22; h TTT" 
; AT 12,22; " WO"; INK O; "=4" 

2750 PRINT AT 13,22; INK 4; " vww" 
;AT 14,22; " w INK O;"-3" 

2755 PRINT AT 15,22; INK 2; ,, -rT-"s 
4;"v";AT 16,22; INK 2;"*^"; 
4;"* INK O;"=2" 

PRINT AT 17,22; INK 3? "tt"¡ 
4;"^"; INK 3;AT IB, 22; ; 

4; "* " ; INK O;" = 1" 

PRINT AT 21,10;"Cambias"; F 
1; INK 2;"?": PAUSE O: IF I 
NKEYÍ="n" THEN GO TO 2805 
2770 BEEP .1,20: LET a=r: PRINT 
AT 21,10;"Opción ": PAUSE O: LET 
x$=INKEYÍ: BEEP .1,30 
2775 IF THEN IF 

=3 THEN LET r-r+5: 
m(J1,lí-3 

2780 IF x$="4“ THEN 
=3 THEN LET r~r+4: 
míjl,2»-3 

2785 IF x$="3" THEN 
=3 THEN LET r=r+3: 


INK 

INK 

2760 

INK 

INK 

2765 

LASH 


LET 

IF 

LET 


mí jl, 1)> 
mí jl,1) = 

mí jl,2)> 
m ( j 1,2 > = 

m í j1, 3) > 


míjl,3)= 



míj1,3)-3 

2790 IF x*="2" THEN IF míjl,l)> 
=2 THEN IF míjl,3>>=l THEN LET 
r=r+2: LET míj1,1)=m(j1,1>—2: L 
ET míjl,3)=m(jl,3)-l * 

2795 IF x*="l" THEN IF m(jl,2)> 
=2 THEN IF m(j1,3)>=1 THEN LET 
r=r+l: LET m íj1, 2) =míj1,2)-2; L 
ET mí jl,3)=m(j1,3)-1 
2800 LET ma=3: GO TO 2710 
2805 BEEP .05,40: PRINT AT 21,5; 

FLASH 1; PAPER 6; , ’> M ; FLASH O: “ 
Movimiento de tropas.": PAUSE 50 
: GO SUB 1000; 60 TO 2040 
2B10 BEEP .01,0: BEEP .01,30: LE 










X 
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T t(pa,2)=1: LET j 1 = j: LET r=0: 
GÜ SUB 130: GÜ TO 2400 
3000 REM lü || ¡| ln+ormacion li H H 
3005 REM 

3010 60 SUB 120: PRINT INK 4;AT 
6,7;INFORMACION 
3015 LET s=0: LET c=0: FGR n=l T 
O nj: PRINT AT n+10,1; INK 2;n; 
INK 1 s " . - Coronel: ";a$(n): NEXT 
n 

3020 PRINT AT 20,l;"De quien qui 
eres in-formacion?, 11 : PAUSE O: LE 
T xí=INKEY*: BEEP -01,30: IF x*< 
"1" OR x$>STR* nj THEN BEEP .1, 
O: 60 TO 3020 

3025 GD SUB 120: LET b^VAL :<$: L 


ET a=7: PRINT INK 4;AT 5,1;"-IN 
FORMACION— >"; INK 0;a*(b): FOR 
n = 1 Tü 40: IF t(n,l)Ob THEN GQ 
TO 3040 

3030 IF a=19 THEN 60 SUB 130: G 
O SUB 120: PRINT INK 4;AT 5,1;" 
-INFORMACION- >"; INK 0;aí<b): L 
ET a=7 

3035 LET a=a+l: LET s=s+t(n.2>: 
LET c=c+l: PRINT AT a,l; INK 2;" 
>"; INK O; p $ (n), t ( n, 2);" ejercit 
os. “ 

3040 NEXT n: IF a>=16 THEN 60 S 
UB 130: GÜ SUB 120: PRINT INK 4 
;AT 5,1;"-INFORMACION- >"; INK O 
;a*(b) 

3045 PRINT ’ " Total territ.: 1 '; 
c'" Total ejerc. :";s 
3050 GO SUB 130: GO TO 2000 










3500 REM U 9H ll Ver el ob j 1 19 U 
3505 REM 

3510 SO SUB 120: PRINT AT 5,1;"- 
OBJETIVO- >";ai< j) : IF tj = l THEN 
PRINT AT 10,1:"Objetivo:INK 
4;" Conquistar el mundo.": GD S 
UB 130: SO TO 2000 
3515 INPUT " Introduzca su clave 
>“; LINE x$: LET xí=<x*+” ") ( 

TO 3) 

3520 IF cí(j)Ox$ THEN BEEP .1. 
O; PRINT PAPER 6;AT 20,7; FLASH 
1;"CLAVE INCORRECTA.": PAUSE 30 
: GO TO 2000 

3525 PRINT AT 10,1;"Objetivo:": 
RESTORE 9500: FOR m=l TO o<j>: R 
EAD xí: NEXT m: PRINT INK 4;AT 
12,l;x* 

3530 GO SUB 130: GÜ TO 2000 
4000 REM IIM Fin desde menú U fí h 
4005 REM 

4010 PRINT AT 20,0; FLASH 1;" 

Pulse O para confirmar. ": 

PAUSE O: IF INKEY$O"0 H THEN BE 
EP .1,20: GO TQ 2000 
4015 BEEP 1,30: PAPER 7: INK O: 
CLS : PRINT AT O, O; " r ; AT 0,31;" 
T'SAT 21,0; "l. "; AT 21,31;" 

4020 PLQT 75,130: DRAW 8,-2: DRA 
W 16,-3,-2: DRAW 4,-3 
4025 DRAW 70,35,-1.2: DRAW -37,- 
50, 1 

4030 DRAW 32,-12,.5: DRAW -15,-2 

5,-.5: DRAW -22,20,.5 

4035 DRAW -5,-60,1: DRAW -25,82, 

- 1.2 

4040 DRAW -27,18,-.5 

4050 CIRCLE 88,128,1 

4055 FOR n=l TO 31: PRINT AT 20, 

O; PAPER 4; BRIGHT 1;" 

HA TRIUNFADO *-A PAZ 

O n+31) " ín T 

4060 BEEP .05,30: NEXT n 
4065 FOR n=l TO 10: FOR m=20 TD 
40 STEP 3 

4070 BEEP .01,m+n: BEEP . 

n: NEXT m: NEXT n 

4075 GO TQ 9000 

8500 REM U ftU )H Pantalla H N M 

B505 REM 

8515 RESTORE 9515: FOR n=l TO 40 
: READ a,b: PRINT INK 8; PAPER 
9;AT b«a;CHR$ <t(n,1)+143): NEXT 
n_ 


8520 GO TO 8555 
8525 LET b=z(t)+22000 
8530 POKE b,(PEEK b)+128: PAUSE 
O: LET X*=INKEY$: BEEP .007,25 
8535 IF x$="z" THEN LET t=t-l: 
IF t=0 THEN LET t=40 
8540 IF x$="x" THEN LET t=t+l: 
IF t=41 THEN LET t=l 
8545 IF x$=” " THEN BEEP .1,10: 
RETURN 

8550 POKE b,(PEER b-12B> 

8555 BEEP .005,30: PRINT AT 19,1 
; INK 1; “>"; INK 0;a$(t(t,l));AT 


19,15; INK 2; 


» N. M , 


INK OípSCt) 


8560 PRINT AT 20,15; INK 2;">"; 
INK O;t <t,2);" ejércitos." 

8565 GO TO 8525 

9000 REM 3) Ü Ht Principio i IB II! 

9005 REM 

9010 POKE 23609,20 

9015 INK O: PAPER 7; BRIGHT O: B 

GRDER O 

9020 GO SUB 140 



9025 PRINT AT 5,0; INK 1;" Juego 
de estrategia (War game) en el 
que pueden participar de 2 a 4 
jugadores." Existen dos forma 
s de juego:la conquista del mun 
do,o la de un objetivo determin 
ado, (Esta es la mas corta)." 
9030 PRINT INK 1;” El jugador,p 
rimero desplazara 
s, y después lu- 
ndo luchar con 1, 
tos (es mas proba- 
on 3).(La lucha es 
dados)." 

9035 PRINT AT 20,2;"N, Jugadores 
FLASH 1;"?": PAUSE O: LET z* 
=INKEY*: BEEP .05,30: PRINT AT 2 
0,15;zí: IF zí<"2" OR zí> ,, 4" THE 
N BEEP .1,0: GO TO 9035 
9040 LET nj=VAL 2$ 

9045 PAUSE 50: PRINT AT 20,2;"C. 


sus ejercito 
chara, pudie 
2 o 3 ejercí 
ble vencer c 
mediante los 
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Mundo/Üjeti vo: (c/dí : " ; FLASH 1; " 
?": PAUSE O: LET zí=INKEY$: BEEP 
.05,30s PRINT AT 20,24;z$: LET 
tj=<l AND z$=”c"> + (2 AND z*="o" > 
: IF tj =0 THEN BEEP ,L0¡ GO TD 
9045 

9050 PAUSE 20: GO SUB 120 
9055 DIN j(nj) 

9060 DIM a$(4,B): PRINT AT 5,0 
9065 FOR n=l TO nj: INPUT ("Nomb 
re jug. " ; n; *' ? ">; LINE z$: IF z 
$="" THEN GO TO 9065 
9070 LET z$=(z4+« »): P 

RINT ' " Jugador " ;n;" ¡ " ;z$C TO 

8): INK lj" INVERSE 1;CHRS < 
143+n): LET a$(n)=z$ 

9075 NEXT n 

9080 LET j=INT (RND*4)+1: IF j>n 
j THEN GO TD 9080 
9085 DIM o(nj) : PRINT ' " DK. Com 
ienza ";a$(j) 

9087 IF tj = l THEN 60 TO 9130 
9090 PAUSE 50; GO SUB 120 
9100 PRINT AT 6,2:"-Reparto de t 
erritorios.-'” 11 Asignación de 
el aves." 

9105 PRINT INK 2’'" Para ver du 
rante el juego el objetivo de 

beras introducir tu clave." 

9110 DIM c$(nj,3); FOR n=l TO nj 
: PRINT AT 20,2;"Coronel: “;a*(n 

) 

9115 INPUT "Elija codigo (xx;<): 
LINE jí$: LET x$=xí+" "( TO 

3) 

9120 LET c=INT (RND#11)+1: FOR m 



=1 TO nj: IF o(m)=c THEN GO TO 
9120 

9125 NEXT m: LET o(n>=c: LET c*< 
n)=x$: IF o(n)>=7+n THEN GO TO 
9120 

9127 RESTGRE 9500: PRINT AT 17,1 
^'Objetivo:”: FOR m=l TD o(n): R 
EAD xí: NEXT m: PRINT INK 4;’* “ 
;x$: GO SUB 130: GO SUB 110: NEX 
T n 

9130 PAUSE 50; GO SUB 120: PRINT 
AT 6,2;"—Reparto de territorios 

w ll 
ii 

9135 PRINT INK 1;AT 8,1;" Se da 
a cada jugador:"''" - ";INT í 
40/nj);" territorios."’” — ";I 

NT ((40/nj ) *3.5); ** ejércitos." 
9140 IF nj=3 THEN PRINT ’'" Se 
sortea un terriritorio." 

9145 DIM b(nj): DIM t(40,6): FOR 
n=l TO 40 

9150 LET a=INT (RND*nj)+1 
9155 IF nj< >3 THEN GO TO 9165 
9160 IF b(1)=13 AND b<2>=13 AND 
b(3> = 13 THEN GO TO 9170 
9165 IF b(a)=INT (40/nj) THEN G 
O TO 9150 

9170 LET b(a)=b(a)+1: LET tín,l) 
=a: NEXT n 
9175 GO SUB 120 

9180 PRINT INK 2;AT 5,4;"-Tecla 
s de juego.—"''" 2 —Cursor Izq 

X -Cursor Deba."'" SPAC 
E —Selecciona territorio." 

9185 PRINT INK 1" " El movimien 
to del cursor no es exactamente 
este,ya que varia con los ter 
ritorios." 

9190 PRINT ''” En los demas caso 
s pulsar la tecla que se indi 
que. " 

9195 RESTORE 9560: FOR n=l TO 40 
: FOR m=3 TO ó: READ a: LET t(n, 
m)=a: NEXT m: NEXT n 
9200 GO SUB 120: PRINT AT 6,1;"- 
Colocacion de ejércitos." 

9205 DIM m(nj,3): PRINT INK 3;A 
T 9,0;" Los jugadores deben de c 
olocar sus ejércitos en sus pai 
ses, a condición de que ningu 

no quede desocupado."'" El 

ordenador coloca tres en cad 

a territorio, el resto los col 













oca el jugador," 

9207 FOR n=l TO 40s LET t(n,2)=3 
: NEXT n: 60 5UB 130 
92tO LET t=l: FOR d=l TO njí LET 
r=lNT (í40/nj)/2): LET jl=d: GO 
SUB 120: PRIÑT AT 6,7;"Turno de 
GO SUB 130: GO SUB 100 

O: NEXT d 

9215 LET oo=USR 58444 

9220 PRINT AT 19,6;"* THE LAST B 

ATTLE *" 

9225 FOR m=l TO 10: FOR n=0 TO 7 
: BEEP ,01,n*2+m*2: BORDER n: NE 
XT n: NEXT ffl 

9230 BORDER O: PAUSE 10: 60 SUB 
150: PAUSE 30: BEEP .1,40: GO TO 
2000 

9500 REM mi H Datos K II I 

9501 REM 

9505 DATA "Conquistar l, +STR$ INT 
(72/nj)+" territorios.”,"Conqui 
star "+STR* INT (72/nj)+" territ 
orlos.","Conquistar Asia y Ant.Su 
r"Conquistar Am.Norte y Europ 
a.","Conquistar Africa,Ocenani a 
v America de Sur." 


9510 DATA "Coquistar ñm.Norte, E 
uropa y Oceania«","Conquist 

ar Asia y Africa.","Destruír a " 
+a$ti>,"Destruír a "+a$Í2),"Dest 
ruir a "+a$(3),"Destruir a "+a$í 
4) 

9515 DATA 2,3,5,4,7,5,9,5,11,1,5 
,6,7, 7, 6, 8, 7, 9, 9, íO, 9,12,11,12,9 

,14 

9520 DATA 14,2,13,4,13,6,15,5,16 
,3,18,4,14,8,17,8,15,9,17,10,17, 
12,20,12 

9525 DATA 19,8,18,6,21,8,23,8,24 
,5,27,6,23,3,27,3,20,4,20,6,22,1 
1,25,12,27,13,28,10,29,15 
9530 DATA "Alaska",“Alberta","On 
tario","Labrador“,"Groen!andia", 
"California","F1orí da","Méjico", 
"Centraamerica” 

9535 DATA "Venezuela","Perú","6r 
asi1","Argentina","Island ia","1n 
glaterra","Europa del S","Alemán 
i a","Escandinavi a”,"Ucrania" 

9540 DATA "Marruecos","Egipto"," 
Guinea","Etiopia","Sudafrica","M 
agadascar","Arabia","Turquia","I 
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ndia",“Indochina","China" 

9545 DATA "Japón","Siberia","Kam 
chatka","Ural","Afganistán","Ind 
onesia","Autrali a occ","Austral i 
a or","N.Ginea","N.Zelanda" 

9550 DATA 626,661,695,697,571,72 
5,759,790,823,857,921,923,985,60 
, 6,669,733,703,640 
9555 DATA 674,798,801,831,865,92 
9,932,803,738,805,807,712,747,64 
7,651,676,740,902,937,971,876, 10 
37 

9560 DATA 2,33,0,0,1,5,6,3,2,6,4 
,7,3,5,7,0,14,2,0,4,7,2,3,8,6, 4, 
8,3,6,7,9,O,8,10,0,0 
9565 DATA 9,11,12,20,10,12,13,0, 
10,11,13,22,11,12,0,0,5,15,18,0, 
14,18,17,16,15,17,20,6,15,16,18, 
19,14,15,17,19,17,18,34,27 
9570 DATA 16,10,22,21,20,22,23,2 
6,20,12,23,21,24,21,22,25,25,23, 
0,0,24,23,0,0,21,27,28,35, 19,34, 
35,26,26,29,35,36,28,30,36,O 
9575 DATA 31,32,29,0,30,33,0,0,3 
0,34,33,0,32,31,1,0,19,35,27,32, 
34,26,27,28,28,29,37,39,36,39,38 
.,O,37,39,40,O,37,38,36,O,38,O,0, 
O 



PROGRAMA 4 

1 REM 

2 REM W \\ ¡i A. S. 1985 i M -ji 

3 REM 

5 GO SoB 2000s PRINT "Creando 
gráficos-": GO SUS 3000 

7 PRINT '"Creando dibujos. 11 
Tiempo aorox. &m:40s": PAUSE 150 

8 CLEAR 52299; PAPER 5: BORDE 
R O: ÍNK O: FLASH O: OVER Os ÍNV 
ERSE O: BRIGHT Os-CLS 

10 PLOT 72,50: DRAW 3,20: DRAM 
-4,6,2: DRAW -5,9,-1; DRAW 3,6, 
-1 

15 DRAW -1,4,2: DRAW -11,7,-.5 
: DRAW -7,5,-2: DRAW -3,6: DRAW 
-2,0,3: DRAW 2,-6: DRAW -2,0,-3; 
DRAW -5,3 

20 DRAW -3,8,-1: DRAW -3.10,1; 
DRAW -10,6,2: DRAW -6,-5,2: DRA 
W -3,2,-3: DRAW O,8,-1: DRAW 1,5 
,1: DRAW 7,4,-2 


25 DRAW 7,-1,-1; DRAW 8,-1,1; 
DRAW 5,0,-2: DRAW 10,-1: DRAW 3, 
1: DRAW 4,1,-1: DRAW 7,2,2 

30 DRAW 2,-3,-3: DRAW -8,-7,1: 
DRAW O,-6,3: DRAW 4,-2,-2: DRAW 
5,0,3: DRAW 0,8,1 
35 DRAW 5,O,-2: DRAW 5,-4,1: D 
RAW 5,-6,-1: DRAW O,-4,-2: DRAW 
-6,-3,-1 

40 DRAW -7,-3,1: DRAW -5,-7,-1 
: DRAW 1,-5: DRAW -1,-1,-2: DRAW 
-3,4,1: DRAW -5,-10,3: DRAW 4,3 
,2: DRAW 2,O,-2 

45 DRAW 0,-5: DRAW 3,-2,-1; DR 
AW 5,-5,2: DRAW 10,-1,-2 

50 DRAW 12,-9,1: DRAW 3,-3,-2: 
DRAW -3,-10: DRAW -4,-4,-1: DRA 
W -5,-8,-1: DRAW -5,-4,-1: DRAW 
-2,-5,-1: DRAW -l,-5,-l 

55 DRAW 2.-2: DRAW -2,-2,-3: D 
RAW'-6,6,-2 

60 PLOT 235,151: DRAW -15,3,1: 
DRAW -8,1,-1: DRAW -5,3,1: DRAW 

















—4,-1,2: DRAW -8,1,-2: DRAW -8, 
0,1: DRAW O,3,-2í DRAW 0,3,2: DR 
AW -9,-1,1 

65 DRAW -9,-7,1: DRAW -2,0,-3: 
DRAW -3,0,3: DRAW O,-2,-2: DRAW 
“8,-1,1: DRAW -8,-2,2 
70 DRAW -2,O,-2: DRAW -4,4: DR 
AW -12,-3,2 

75 DRAW -5,-6,-1: DRAW O,-5,3: 
DRAW 4,-2,-2: DRAW 3,0,2: DRAW 
3,9 

80 DRAW 2,-2,-2: DRAW O,-5,2: 
DRAW 0,-2,1: DRAW -2,-4,2: DRAW 
- 8,-1 

85 DRAW -1 p 4,-li DRAW -2,0,3: 
DRAW -8,-8,-2 

90 DRAW 0,-1: DRAW 2,-3,-3 
95 DRAW -3,0: DRAW -1,-1: DRAW 
0,-5: DRAW 3,-1,-1: DRAW 3,4,2: 

DRAW 5,3,-1 

100 DRAW 5,-3: DRAW 2,-2,3: DRA 
W 1,2: DRAW -4,4 



105 DRAW 2,2,-3; DRAW 4,-4: DRA 
W 1,-3: DRAW 2,0,2: DRAW 1,3,-2 
110 DRAW 4,2: DRAW i,4,-1: DRAW 
4,-2,3: DRAW O,-3,-3: DRAW -6,- 
2,2: DRAW O,-3,3 
115 DRAW O,-5,-3: DRAW -11,-1,1 
s DRAW -4,5,-1: DRAW -10,-4,.5 
120 DRAW -4,-21,2: DRAW 10,0,1: 
DRAW 5,-3,-3: DRAW 0,-16,-1: DF: 
AW 5,-13; DRAW 7,0,2 
125 DRAW 4,10,1: DRAW 3,12,2: D 
RAW 6,10,-1: DRAW -3,3,3: DRAW - 
7,7,-2: DRAW -2,7 
130 DRAW 2,O,-3: DRAW 6,-11: DR 
AW 3,-1,3: DRAW 7,4: DRAW -1,3,3 
: DRAW -5,4,-ls DRAW 2,1,-3: DRA 
W 8,-3, 1': DRAW 8,-12,-1: DRAW 4, 
0,2 

135 DRAW 6,10,-1: DRAW 2,-5: DR 
AW 0,2: DRAW 5,-12,1: DRAW 2,0,3 
: DRAW -3,8,-1: DRAW 4,-4,-1: DR 
AW 1,10,2: DRAW 6,15,i 
140 DRAW 5,-4,-1: DRAW 2,0,3: D 
RAW O,4,-1: DRAW 5,13,1: DRAW -3 
,4: DRAW 7,6,-2: DRAW 6,2,-1: DR 
AW -1,-9,1: DRAW 2,0,3: DRAW 4,1 
O , > 5 

145 DRAW 10,4,1 

150 PLOT 154,70: DRAW 0,8,-.5: 
DRAW 3,6,-2: DRAW O,-6,-.5: DRAW 
- 3 ,- 3,-2 

160 PLOT 216,60: DRAW -7,5,-2: 
DRAW -4,1,1: DRAW -6,-3,2: DRAW 
-4,2,-3 

165 DRAW 10,15,-2: DRAW 4,O,-4: 
DRAW 3,-1,3: DRAW 1,3: DRAW 2,0 
-2: DRAW 6,-9,2: DRAW -5,-14,-2 
170 PLOT 105,150: DRAW 7,-1,3: 
DRAW -2,2,2: DRAW -5,-1,1 
175 PLOT 209,120: DRAW 7,4,1: D 
RAW -2,2,3: DRAW -6,-4,-i: DRAW 
O,—2,3 

180 PLOT 47,159: DRAW 3,-2,-2: 
DRAW -2,-2,-1: DRAW -2,2.-2: DRA 
W 1,2,-2 

185 PLOT 212,85: DRAW -4,5,-2: 
DRAW 7,0,-1: DRAW 4,-3,1.5: DRAW 
1.-3,-4:, DRAW -7, 1, 1 
190 PLÜT 156,164: DRAW 2,-2,-3: 
DRAW -4,-5,2: DRAW -2,3,-3: DRA 
W 3,4,-1 

195 PLOT 179,98: DRAW -1,-3,-2: 
DRAW 1,3,-3 
















PROGRAMA 4 

200 PLOT 86,148: DRAM -2,12,-1: 
DRAW -2,2,2: DRAW -5,2,-i.5: DR 
AW 22,ó,-2: DRAW 4,-1,3: DRAW 3, 
-2,-2: DRAW -1,-8,-1: DRAW -5,-6 
,-1: DRAW -5,-5,1.5: DRAW -9,0,- 
3 

205 PLOT 226,53: DRAW 5,5,-1: D 
RAW -5,-5,-2: PLOT 234,57: DRAW 
1,4: DRAW 3,-1,-2: DRAW -3,-3,-1 

* -—I 

210 PLOT 66,108: DRAW 3,O,-2: D 
RAW 3,-2,-2: DRAW -6,2: PLOT 68, 
106: PLOT 71,107: PLOT 74,104: D 
RAW 3,2,2: DRAW -3,-2,2 
215 PLOT 83,150: DRAW -10,9,1: 
DRAW -5,-2,2: DRAW 3,-2,2: DRAW 
2,-7,-2: DRAW 5,-3,-1: DRAW 6,4, 

£ 

220 PLOT 217,133: DRAW -2,-5,1: 
DRAW 3,0,2: DRAW -1,5,1.5 
225 PLOT 117,136: DRAW 3,-1,2: 
DRAW 0,4,2: DRAW -2,4,-1: DRAW - 
2,-1,3: DRAW 1,-6,-1 
230 PLOT 112,136: DRAW 2,3,2: D 
RAW -2,-3,2 

235 PLOT 191,81: DRAW -8,10,1: 
DRAW 8,-10,1: PLOT 197,88: DRAW 
1,6,2: DRAW -3,-2,-i: DRAW 2,-4, 

O 

.L_ 

240 PLOT 72,173: DRAW 10,1: DRA 
W -2,-3,-3: DRAW -7,-3,1: DRAW - 
3,1,-3: DRAW 0,3,3: DRAW 2,1,-4 
245 PLOT 55,155: DRAW 6,1,2: DR 
AW -9,3,2: DRAW 3,-4,2 
250 PLOT 142,113: DRAW -1,2: PL 
OT 152,132: DRAW 0,18 
255 PAUSE 20: FOR n=2252B TO 23 
231: POKE n,45: NEXT n 
260 PRINT AT 17,0; PAPER O,, 

265 FOR n=18 TO 21: PRINT AT n, 
O; PAPER 7,,: NEXT n 
270 PRINT INK O;AT 0,0;" K" ;AT 
0,31; " L": AT 16, O; " M" ; AT 16,31; ’*N 
PAPER 7;AT 18,0; "K";AT 18,31; 

, "L"jAT 21,0; 11 1-1"; AT 21,31; "M" 

275 PRINT INK 0;AT 14,1;" U"; I 
NK 1; "O" ; INK 0;"T ,, ;AT 13,2; 

AT 15,2; " S"; AT 12,2; INK 1; :, N" 
280 POKE 22638,46: POKE 23050,4 
4: POKE 22962,43 

S 285 LET cm=l: GO SUB 1000: GG S 
UB 3500: GO SUB 9000 


500 REM ti H Calavera 1 ||¡ ¡j|| 

505 REM 

51O'PAPER O: INK 7: BORDER O: C 
LS 

515 PLOT 90,80: DRAW -20,50,-1 
520 DRAW 100,0,-2.5: DRAW -20,- 
50,-1 

530 DRAW -5,-5,1: DRAW 0,-20: D 
RAW -50,O,-3 

540 DRAW 0,20: DRAW -5,5,1 
550 CIRCLE 95,120,15: CIRCLE 14 
5,120,15 

560 PLOT 120,100: DRAW 9,-12,-1 
; DRAW -18,0,-1: DRAW 9,12,-1 
570 PLOT 95,70: DRAW 50,0: PLOT 
95,54: DRAW 50,0 
580 FOR n=95 TO 144 STEP 10 
590 PLOT n,70: DRAW 0,-6: DRAW 
10,0,1: PLOT n,54: DRAW 0,6: DRA 
W 10,0,-1 
600 NEXT n 

605 PLOT 81,89: DRAW -61,31: PL 















□T 95,70: DRAW -80,40 
610 PLOT 145,57: DRAW 75,-37: P 
LÜT 143,46: DRAW 72,-36 
615 PLOT 95,57: DRAW -75,-37: P 
LOT 95,46: DRAW -72,-36 
620 PLOT 159,B9s DRAW 61,31: PL 
OT 145,70: DRAW 80,40 
630 RESTORE 1585: GO SUB 1010 
640 PDKE 58445,76: PGKE 58446,2 
04: POKE 58452,24 
650 RANDOMIZE USR 58444: LET cm 
=0; RESTORE 9035: GO SUB 9015: G 
O TO 9500 

1000 REM la II 19 Relleno 119 I SI 
1005 REM 

1007 RESTORE 1000 

1010 READ yi,xis IF yi>=1000 THE 
N 1NK yi/1000: GO TO 1010 
1015 IF yi=999 THEN GO TO 1075 
1020 FOR s=-l TO 1 STEP 2: LET x 
is=>; 1 — ( O) : LET xs=3Q0#5 
1025 FOR n=yi TQ 175 



1030 FÜR m=xis TO xs STEP s 
1040 IF PÜINT ím,n)=1 THEN GO T 
O 1060+5 *(m=xis) 

1050 PLOT m,n 
1055 NEXT m 
1060 NEXT n 
1065 NEXT s 
1070 60 TO 1010 
1075 RETURN 

1500 * REM am Datos de relleno Sil Sil 
1505 REM 

1510 DATA 1000,0,98,64,96,68,105 
,55,135,17,134,17,150,40,150,21, 
108,45 

1515 DATA 110,45,111,43,113,42,1 
51,58,134,73,151,66,152,68,113,6 
7,114,66 

1520 DATA 115,65,105,75,146,79,1 
57,72,155,57,156,48,157,47,145,9 
2,168,107,168,72,173,80 
1525 DATA 2000,0,97,173,100,151, 
126,145,153,153,154,161,156,166, 
161,183,158,192,155,205 
1530 DATA 153,225,96,178,118,204 
,120,204,138,221,100,190,97,191, 
95,186,93,188,94,187,97,185,100, 

I 184 

1535 DATA 121,210,128,216,132,21 
7,122,212,123,214,158,154,161,15 

4.163.156 

1540 DATA 1000,0,60,217,61,214,6 
3,197,78,207,80,214,86,213 
1545 DATA 85,221,54,229,58,236, 
7,230,83,189,84,189,87,187,89,1 
5,89, 1-96,92, 19B 

1560 DATA 4000,O,44,77,3000,O,6 
,137,115,126,95,118,71,155,73,1 

4.79.154.83.156 

1565 DATA 6000,0,126,139,139,131 
, 134, 125,120,117,123,138,126,121 
,136,118 

1570 DATA 142,117,122,131,124,13 
O,125,128,126,127,137,113,147,10 
: 9 

1580 DATA 999,0 

1585 DATA 33,120,71,120,101,120 
1590 DATA 105,78,105,162,86,95,8 
6, 145 

1595 DATA 999,0 
1600 DATA 9999 

2000 REM II ||» Verit. Datos Mi Ü H 
2005 REM 

2010 PRINT "Veri4 i cando Datos." 



Ul w CO üi 













2015 RESTORE 1500: LET s=0 
2020 READ a; LET s=s+a: IF a=999 
9 THEN 60 TO 2030 
2025 GO TO 2020 

2030 IF s<>54715 THEN PRINT "Er 
ror en datos de relleno,": STOP 
2035 RESTORE 9000: LET 5=0: FOR 
n=l TO 24; READ a: LET s=s+a: NE 
XT n: IF s<>2144 THEN PRINT "Er 
ror en datos de c. maquina.": ST 
OP 

2040 RESTORE 3000: LET s=Q; FOR 
n=l TO 192: READ a: LET s=s+a: N 
EXT n: IF s<>15484 THEN PRINT " 
Error en datos de gráficos.ST 
OP 

2050 PRINT "Datos Correctos.R 
ETURN 

3000 REM IHHfi Gráficos «mi 
3005 REM 


3040 DATA 63,15,3,3,1,1,0,0,0,0, 
128,128,192,192,240,252,0,0,1, 1, 
3,3 

3045 DATA 15,63,36,131,42,65,2,1 
60,44,81,0,0,0,254,254,56,16,16, 
0,0,254,254,56,16,16,56 
3050 DATA 0,0,254,254,124,124,16 
,56,0,16,16,16,16,84,56,16,0,4 
3055 DATA 2,127,2,4,0,0,0,32,64, 
254,64,32,0,0 

3500 RESTORE 3500: FOR n=65512 T 
O 65535: READ a: POKE n,a; NEXT 
n: RETÜRN 

3505 DATA 84,56,254,56,84,16.0,0 
,124,238,198,238,124,56,0,0,84,1 
24,84,56,0,0,0,0 

9000 REM |j M S| Codigo maquina l| Hí M 
9005 REM 

9010 RESTORE 9000 

9015 FOR n=5B444 TO 58455: READ 

a: POKE n,a: NEXT n 
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3010 RESTORE 3000: FOR n=0 TO 16 
7: READ a: POKE 65368+n,a: NEXT 
n 

3015 RETURN 

3020 DATA 243,226,192,17,192,226 
,243,255,255,247,227,227,128,0,1 
31,195 

3025 DATA 255,193,1,231,0,68,129 
,255,255,239,199,199,199,239,199 
,187,0,0,0,24,24,0,0,0,0,6,6,0 
3030 DATA 0,96,96,0, Ó, 6, 6,241 24, 
96,96,0,0,102,102,0,0,102,102,0, 
O, 102 

3035 DATA 102,24,24,102,102,0,0, 
102,102,66,36,102,102,0,252,240, 
192,192,128,128,0,0 


9020 IF cm=l THEN RANDOMIZE USR 
58444 

9025 RETURN 

9030 DATA 17,88,228,33,0,64,1,0, 
27,237,176,201 

9035 DATA 17,O,64,33.88,22B,1,0, 
27,237,176,201 

9500 REM M HI M Gradación ti! ||s ü 
9505 REM 

9510 PAUSE 100: INK O: PAPER 7: 
CLS : PRINT "Grabación." 

9515 SAVE "TLBcm"CQDE 52300,1323 
5 

9525 INPUT "lias copias? (s/n? 

LINE aí: IF a$=‘‘s , ‘ THEN GO TO 
9515 

I 


Cuide su Spectrum 





Proteja su ordenador y manténgalo 
como nuevo con esta práctica 
funda de teclado transparente 


Servicio 
especial 
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lectores 
y amigos 
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Quería felicitaros por el articu¬ 
lo publicado en el número 10, titu¬ 
lado «Protección del software», y 
quería ayudar a completarlo. En la 
página 15 se dice: «... Reciente¬ 
mente han aparecido varios pro¬ 
gramas que parece ser han conse¬ 
guido desterrrar de! reino del Spec- 
trum a los más potentes copiado¬ 
res. Son los llamados programas 
TURBO, grabados a distinta velo¬ 
cidad del estándar prefijado por las 
rutinas de la ROM». Pues bien, 
tengo en mis manos las instruccio¬ 
nes de un programa copiador en 
TURBO, que además copia pro¬ 
gramas normales. El programa se 
llama Lerm 6, y sus especificacio¬ 
nes técnicas son las siguientes: car¬ 
ga normal, carga con cabeceras 
cortas, carga con cabeceras muy 
largas, grabación con cabecera an¬ 
cha, grabación normal, grabación 
hasta 41 K, grabación en bloques 
inferiores a 47,3 K, grabación de 
bloques hasta 50 K, realiza copias 
tanto en cassette como en micro- 
drive, graba programas sin carga 
TURBO, carga programas turbo 
en 9 velocidades, pudiéndose alte¬ 
rar cuando se salve su velocidad, 
nasta 50 K. 

Gabriel Pérez 
León 

0 Efectivamente la carrera entre 
piratas y programadores no ha he¬ 
cho más que comenzar. Constan¬ 
temente surgen nuevos métodos de 
protección, cada día más comple¬ 
jos. Estos apenas dan a las gran¬ 


des compañías un pequeño respiro 
que deben aprovechar para sacarle 
el máximo jugo a sus últimos pro¬ 
gramas. Pero, ningún método es 
inexpugnable, y la piratería se ha 
convertido en el deporte preferido 
de cientos de programadores, que 
no tardan mucho en dar con la ru¬ 
tina correcta que eche por tierra la 
protección de moda. Surgen pro¬ 
gramas piratas que son capaces de 
copiar a otros programas piratas, 
otros que se copian a si mismos. 
En ocasiones resulta más rentable 
para las casas de soft el comercia¬ 
lizar programas que esquiven las 
protecciones de sus últimos éxitos, 
antes de que lo hagan otras com¬ 
pañías y sean ellas las que se lleven 
los beneficios. A este paso no an¬ 
dará lejos el día en que se vendan 
más copiadores piratas que juegos 
y utilidades. De hecho, ya ha caído 
en nuestras manos el número 7 de 
la serie a que haces alusión (Lerm 
7), que es, como podrás imaginar, 
una versión modernizada del pro¬ 
grama que comentas. 


fp] Soy un coleccionista de progra¬ 
mas deportivos para el Spectrum. 
En mi colección falta algún pro¬ 
grama de fútbol, de los cuales no 
encuentro en ninguna parte. ¿Me 
podrían decir si hay programas de 
fútbol para Spectrum?, y si los hay, 
¿qué casa los comercializa de me¬ 
jor calidad? 

Enrique Ramírez 
Marbella (Málaga) 


L ! iJ Entre los programas de fútbol 
tradicionales podemos destacar 
«Match day», de Ocean, y «World 
Cup », de Artic, ambos bastante lo¬ 
grados (mejor el primero) y para 
Spectrum 48 K, Si te gusta el fútbol 
(rugby) americano y conoces su re¬ 
glamento, también podrás disfru¬ 
tar con «American football», de 
Mind Games. Y si prefieres ver los 
partidos desde el banquillo, lo tuyo 
es el «football manager», distribui¬ 
do por Inveslrónica, en el que de¬ 
berás llevar las finanzas, fichajes, 
etc., de un equipo a lo largo de una 
o varias ligas. Sea cual sea tu elec¬ 
ción, esperamos que no te «cue¬ 
len» muchos goles. 


Ü J Soy un asiduo lector de vuestra 
revista y quisiera, ante todo, felici¬ 
taros por los buenos artículos pu¬ 
blicados en ella. 

Mi problema es el siguiente: He 
copiado el programa de amplia¬ 
ción del sistema operativo publica¬ 
do en el número de septiembre, y 
creo que hay un error en la prime¬ 
ra línea, pues al ejecutarla siempre 
me da error en dicha línea. Ruego 
publiquéis esta errata. Gracias. Se¬ 
guid publicando buenos progra¬ 
mas de utilidades como éste. 

Eduardo Maya 
Lanjarón (Granada) 

i Dadas las características de la 
linea a que haces alusión, y supo¬ 
niendo que las hayas copiado co- 























neciamente, el error sólo puede re¬ 
sidir en ¡a primera de sus senten¬ 
cias. Esta hace un CLEAR para 
bajar RAMTOP y dejar asi un es¬ 
pacio de memoria disponible para 
colocar allí el código máquina. 
Esto está pensado, y en el artículo 
quedaba bien claro, para un Spec- 
trum 48 K, por lo que si el tuyo es 
un 16 K. el ordenador nunca podrá 
ejecutarlo, ya que el comando se 
referiría a una posición de memo¬ 
ria no existente. 

Si no es este tu problema, sólo 
podemos aconsejarte que leas 
atentamente las instrucciones de 
carga del programa y que, caso de 
continuar los problemas, nos escri¬ 
bas una segunda carta especifi¬ 
cando mejor las características de 
tu problema (diciéndonos , por 
ejemplo, el mensaje de error que 
da la máquina). El programa en 
cuestión, como todos los que publi¬ 
camos, ha sido convenientemente 
probado y podemos asegurarte que 
carece de erratas. 

Intentamos publicar la mayor 
cantidad posible de utilidades, ya 
que, a pesar de ser menos «comer- 
cializables» que los juegos, son 
muchos los aficionados como Ma¬ 
nuel Arana que les dedican su 
‘tiempo. 


[3 En el montaje del Interfacer 
Joystick que publicasteis en el nú¬ 
mero de julio se muestra en los di¬ 
bujos correspondientes un circuito 
marcado con el nombre 74SL144, 
Pues bien, si se consulta la lista de 
componentes de dicho montaje, se 
dice que el nombre de este circuito 
es 74LS244. ¿Cuál es el que tene¬ 
mos que comprar los que quera¬ 
mos realizar este montaje? 

Juan J. García 
León 

fp] Me dirijo a Vds. para rogarles 
me aclaren el artículo del Interface 
Joystick. 

1) Pocas especificaciones para 
una cosa tan delicada en el sentido 
de que te cargas el ordenador, 


2) La fotografía de la página 28 
no corresponde con el dibujo de la 
placa. 

3) No sé si es un circuito de do¬ 
ble cara o simple, pero tiene que 
ser doble por que no coje de otra 
manera. La foto es circuito simple 
o no es el mismo. Si es doble la pa¬ 
tilla del 74LS32 está a 112 V. la 7 
que es masa está libre, la 20 del 
74LS144 (o 74LS244, que no se 
sabe cuál) está a D7 en vez de a +5 
V. ¿Por favor, pueden aclararme 
esto?, pues tengo hecha la placa y 
se me ocurrió probar antes un 
poco y no hay forma. Imagino que 
será el 74LS244 o el 240, porque el 
144 no lo conozco. 

P. Horcasada 
Valencia 

0Lít fotografía de la página 28 
efectivamente no debe tenerse en 
cuenta, ya que corresponde a un 
montaje de interface preliminar y 
está puesta a modo de indicación 
para un montaje del conectar en 
posición ventral. 

El circuito es doble cara. El chip 
del buffer es el 74LS244. Cierta¬ 
mente falta una pequeña pero im¬ 
portantísima pista: Ha de ponerse 
a masa la patilla 7 del chip 
74LS232. Y por último, el 
74LS244 tiene alimentacón Vcc a 
5+ en la patilla 20 y masa en la pa¬ 
tilla 10, como está correctamente 
impreso en la figura. 


fp] Llevé mi ordenador {un Spec- 
trum 3BJ a reparar al servicio téc¬ 
nico «Hissa» de Vigo, y cuando lo 
puse a funcionar me di cuenta de 
que el programa «Boxeo» del nú¬ 
mero 2 no me funcionaba. Verifi¬ 
qué la versión que era con PRINT 
1N 63486 y obtuve 191 como res¬ 
puesta. Cuando pruebo PRINT IN 
65022 también obtengo como res¬ 
puesta 191, y según vi en una re¬ 
vista. mi versión tendría que ser 3B 
o Plus. ¿Es posible que me hayan 
cambiado a 3 la versión? 

José Luis González 
Sta. Cristina de Cobres (Ponteve¬ 
dra) 
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Es totalmente lógico que ai ha¬ 
berte cambiado piezas defectuo¬ 
sas, y más aún, si una de éstas ha 
sido la VLA, haya cambiado la 
versión de tu Spectrum; ya que las 
tan nombradas versiones se dife¬ 
rencia en sólo algunos detalles. Es 
posible, por tanto, que tengas aho¬ 
ra una versión mixta, o incluso 
que, al realizar la reparación, sus¬ 
tituyeran la totalidad de la placa 
de circuito impreso. De todas for¬ 
mas esto no debe influir en el fun¬ 
cionamiento de tu ordenador: de¬ 
berás, eso si, efectuar las modifica¬ 
ciones necesarias en los progra¬ 
mas que utilicen sentencias IN 
para explorar el teclado. 


e gustaría que me informaran 
de las características técnicas y re¬ 
presentante en España de la im¬ 
presora Canon A-1210. 

Miguel Agüitó 
San Antonio (¡biza) 

us características son las si¬ 
guientes: 

— Impresión por inyección de 
tinta. 

— Color, 

— Bidireccional. 

— Número máximo de caracte¬ 
res por línea: 40 felongados), 80 
(normales). 

— Lineas por pulgada: 6. 

— Dimensión de la matriz: 5*7 
puntos. 

— Juego de caracteres: ASCII 
(128 caracteres). 

— Velocidad: 40 caracteres por 
segundo. 

— Papel: normal, en rollo, an¬ 
chura máxima: 8,5". 

— Número de copias: I. 

— Tipo de arrastre: fricción. 

— Interfaces: paralelo Centro¬ 
nics estándar, serie RS-232. 

— Bujfer: 1 linea (40-80 carac¬ 
teres). 

— Resolución: 560*4 colores 
(gráfica). 650*4 colores (copia 
TRC). 

— Nivel de ruido: 85 dB. 

— Representante en España: 




Canon Copiadoras de España. 
S. A, Avda. Menéndez Pelavo, 67. 
Madrid. Tel.:(91) 273 75 08. 


Somos un grupo de amigos con 
varios ordenadores y quisiéramos 
que nos resolvieseis algunas dudas: 

¿Qué ventajas e inconvenientes 
reales tiene la ampliación intema 
de memoria del Spectrum? Ante ia 
posibilidad de adquirirla fuera de 
España, ¿tiene su montaje algún 
inconveniente para realizarlo uno 
mismo? ¿Qué pasa con la garantía 
del ordenador? * 

Entre la publicidad de vuestra 
revista hemos visto que existe la 
posibilidad de conectar varios 
Spectrum formando una «Red» 
que permitirá así «compartir pro¬ 
gramas» entre ellos. ¿Esta Red 
equivaldrá a una ampliación de 
memoria RAM y, por tanto, per¬ 
mitirá introducir en el ordenador 
programas de más de 48 K? 

Victoria Arauzo 
y Eduardo Nogueira 
Madrid 


R 


La ampliación de memoria in¬ 


terna, caso de estar correctamente 
hecha, convertirá a tu Spectrum en 
un 48 K sin ningún tipo de limita¬ 
ciones. Si la adquirís en ei extran¬ 
jero deberéis cuidar que quien rea¬ 
lice el montaje tenga alguna expe¬ 
riencia en la materia, pues os ju¬ 
gáis el ordenador. La garantía 
queda invalidada una vez se rom¬ 
pan los precintos que cubren los 
tornillos inferiores. 


El hecho de que un ordenador 
pueda acceder a la memoria de sus 
compañeros de red no es sinónimo 
de ampliación de memoria en el 
habitual sentido que esta frase tie¬ 
ne. Esto no quiere decir que no 
puedan usarse estas Ks extras 
para almacenamiento de datos, 
pero un microprocesador nunca 
podrá, por medio de la red, «co¬ 
rrer» un programa en ia memoria 
de otro ordenador. 
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SUSCRIPCIONES: 

Rogamos dirijan toda La 
co rrespondencia reiac i añada con 
Suscripciones a: 

TODOSPECTRLM 
EDISA: Td*415 97 12 
C/ López de Hovos. 14 ] -5.® 

28CK): MADRID 
(Para iodos los pagos reseñar 
solamente TODOSPECTRUM1 
Pa ra la com pra de ejem piares J 
atrasados diríjanse a La propia 
editorial 

TÜDQSPECTRUM 
C7 Bravo Muritlo. 377-5.* A 
Tel. 733 74 13-28020 MADRID 


Si deseas colaborar en TODOSPEC- 
TRUM remite tus artículos o progra¬ 
mas a Bravo Murillo 377. 5 * A. 28020 
Madrid. Los programas deberán estar 
grabados en cassette y los artículos, 
mecanografiados 

A efectos de remuneración, se anali¬ 
za cada colaboración aislada mente, es¬ 
tudiando su complejidad y calidad. 



















La versión española de Popular Computing 
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LA REVISTA QUE INTERESA TANTO AL AFICIONADO COMO AL PROFESIONAL 
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Visto y na üista 
Gestión 

Bases tefe* 






Una publicación que 
informa con amenidad 
acerca de las novedades 
en el campo de las 
computadoras personales. 

ORDENADOR POPULAR, 
la revista para el 
aficionado a la 
informática. 

Ya está a la venta 


Cómprela en su kiosco habitual o solicítela a: 


ORDENADOR 

- POPULAR. 


Bravo Murílla, 377 
TeL 7339662 

28020 -MADRID 
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El ordenador personal para toda la familia. Con SO K para estar a la altura de todos los gustos y necesidades. Jugar, archivar, 
aprender, programar: y con capacidad para crecer con la aplicación de periféricos. 


CARACTERISTICAS MAS IMPORTANTES DEL V-20 

• Sistema standard MSX que hace compatibles hardware y software de todos los productos que tienen este sistema en el mercado. 

• Pueden acoplar los siguientes periféricos de CANON: 

— Impresoras. — Mouse para hacer todo tipo de gráficos a 

— Floppy de 720 K, que incluye diskette MSX- co * or * 

DOS para aprovechar toda la capacidad del — Joy sticks. 

ordenador y además incluimos un segundo — Caja de 5 diskettes vírgenes. 

diskette con tres programas de aplicaciones — Variedad de programas en cinta con juegos. 

profesionales. 

• Y además dos manuales en castellano: guía del usuario y completo manual de BASIC. 


Ordenador Personal 

Canon 


SISTEMA M 


DISFRUTELO EN FAMILIA 









